$ perl -le " open my($fh), q{<}, \q{hi}; print readline $fh; "
hi