unless (open (FH, $filename)) { die "Error: couldn't read '$filename': $!\n"; }