$ touch 'foo bar.txt'
$ perl -MFile::Glob=:glob -e 'print for <*foo bar*>'

##</code><code>##

use File::Glob 'bsd_glob';
print for bsd_glob('*foo bar*');
# -- or --
use File::Glob $] lt '5.016' ? ':glob' : ':bsd_glob';
print for <*foo bar*>;