open(my $fh, '<', $file) || die "error opening '$file': $!";