As Cody pointed out, you're not printing to the file.

print $line;

prints $line to STDOUT, not to the file. You need to specify the filehandle name in the print statement, for example,

print FIL $line;

.