Select Code to Download

$ touch foo bar
$ perl -MData::Dump -e '
...
  dd myglob($_) for qw/foo bar/   '
"foo"
undef

return if ()=glob("$directory/*");