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