Select Code to Download

foreach my $file (<*.txt>) {
   open  ADDTO, $file or die "Couldn't open $file for append.\n";
   print ADDTO  $txt;
   close ADDTO;
}