$ perl -wle " open my($fh), q{<}, \q{hi}; print readline $fh;   close $fh; print readline $fh; "
hi
readline() on closed filehandle $fh at -e line 1.