open my $fh, $file or die "..";