Select Code to Download

open DATA, "junk.txt" or die $!;
my @arr;
...
close DATA;

print $_, "\n" for @arr;