open my $fh, "<", $file or warn "Couldn't open '$file': $!" and exit;