open my $fh,'>',$file_name || die "can't open $file_name for writing: $!\n";