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