## create some files with funny names
map { 
  open my $fd, '>', chr $_ or die "open: $!";
  close $fd;
} 33..45,58..63,91..96,123..126

$ perl -le 'print glob q[+]'
+
$ perl -le 'print glob q[`]'
`
$ perl -le 'print glob q[;]'
;

##</code><code>##

$ perl -le 'print glob q[?]'
!"#$%&'()*+,-:;<=>?[\]^_`{|}~
$ perl -le 'print glob q[\?]'
?

$ perl -le 'print glob q[*]'
!"#$%&'()*+,-:;<=>?[\]^_`{|}~
$ perl -le 'print glob q[\*]'
*