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