die "Error: $!" unless open my $fh, '<', '/tmp/test_file.txt'; while (defined(my $line = <$fh> )) { print "$line\n"; } close $fh;