print $fh while <>;

##</code><code>##

print $fh $_ while <>;