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