I think your almost completed. For the statement ' print $line;' show the record in the command line only. Insist of you print the file handler that affect the file.

So change the below line in to your code.

print OUT $line;
[download]