Help for this page
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);