open(my $fh, '<', $filename) or die "can't open '$filename': $!"