You are printing the file handle reference. It is coming from this line:

print $fh;
[download]

In order to have perl treat $fh as a file handle, you need to use one of the following:

print {$fh} $_;
print $fh $_;
[download]