Select Code to Download

my $file_name = ...;

...
      or die("Unable to open output file: $!\n");
   print $fh $file;
}