print  $fh $str;
...
print $fh $str;
...
print $fh $str;

##</code><code>##

DoublePrint( $fh, $fh2, $str );
...
DoublePrint( $fh, $fh2, $str );
...
DoublePrint( $fh, $fh2, $str );