note
pc88mxer
You are printing the file handle reference. It is coming from this line:
<c>
print $fh;
</c>
In order to have perl treat <c>$fh</c> as a file handle, you need to use one of the following:
<c>
print {$fh} $_;
print $fh $_;
</c>
700209
700209