$ perl -MO=Deparse,-p -e 'print "$_\n" for < a b c >;'
use File::Glob ();
print(("$_\n")) foreach (glob(' a b c '));
-e syntax OK