open my $FH, "<", "file.txt" or die "Cannot open file.txt $!";
while (<$FH>) {
    # ...
}