@file = <FILE>;
print("<BR><BR> @file<BR><BR>");
while($line = <FILE>)
...
[download]

Which do you want to do? Do you want to read all of the lines into @file or do you want to iterate over the file one line at a time? You can't do both.

I suggest to drop those first two lines, after you fix the open issue.