shell> perl -MO=Deparse -e 'open(0); @f=*0; print <$f[0]>'
open *0;
@f = *0;
print CORE::GLOBAL::glob($f[0], 0);
-e syntax OK