open(my $fh, "<", $file) or die("file open failed for '$file': $!");