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