$ 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.