sub printfile() { my ($fh) = @_; print <$fh>; }