Select Code to Download

> ls -1
abc.txt
def.txt
xyz.boo

> perl -e '@a=qw(*.txt xyz.boo);foreach $f (@a) {print "$f->";$y=glob(
+$f);print $y,"\n";}'
*.txt->abc.txt
xyz.boo->def.txt

> perl -e '@a=qw(*.txt xyz.boo);foreach $f (@a) {print "$f->";($y)=glo
+b($f);print $y,"\n";}'
*.txt->abc.txt
xyz.boo->xyz.boo

> ls -1
abc.txt
...
abc.txt
> perl -e '($y)=glob("boo.txt");print $y,"\n";'
boo.txt