$ perl -MO=Deparse -le 'print <x*>'
BEGIN { $/ = "\n"; $\ = "\n"; }
use File::Glob ();
print glob('x*');
-e syntax OK