open my $fh, '<', 'foo.txt' or die "can not open foo.txt: $!";