C:\>perl -MO=Deparse,-p -e"while (<{$FH[0]}>){print}
use File::Glob ();
while (defined(($_ = glob((('{' . $FH[0]) . '}'))))) {
    print($_);
}
-e syntax OK

C:\>perl -MO=Deparse,-p -e"while(readline $FH[0]){print}
while (defined(($_ = readline($FH[0])))) {
    print($_);
}
-e syntax OK