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