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