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