Maybe this helps you with debugging:

print "Writing record ... ";
print FH "record is [$record]\n";
print "Wrote record: [$record]";
[download]