Help for this page

Select Code to Download

Select or download this

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

Select or download this

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