my $line
    while ($line = <FILE>) {
        ...
    }
    close(FILE);