$ perl -wle 'print <x>'
Name "main::x" used only once: possible typo at -e line 1.
readline() on unopened filehandle x at -e line 1.

##</code><code>##

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

##</code><code>##

$ perl -MFile::Glob -wle 'print glob "x"'
x