$line = <FILE>;
while ($line ne ""){