$ touch foo bar
$ perl -MData::Dump -e '
  sub myglob {scalar glob($_[0])}
  dd myglob($_) for qw/foo bar/   '
"foo"
undef