print while <$fh>; # assuming $\="\n"