open my $fh, '>', $file_name or die "Cannot open $file_name: $!";