open my $fh, "<", $file or die "Can't open '$file': $!";