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