open (my $fh, $file) || die "Couldn't open '$file': $!";