Select Code to Download

my $outfile = "userfile.txt"; # or whatever
....
...

  close (OUTFILE); 
} # else

open (OUTFILE, ">$outfile") or
  die "Error: couldn't write to file $outfile: $!";
...
print (OUTFILE "$_\n") foreach @DATA;

close (OUTFILE);