open(my $fh, "file.txt") or die("Can't open file.txt");
while(my $line = <$fh>) {
    # stuff here
}
close $fh;