Select Code to Download

my $outfile = shift;
open OUT,">".$outfile or die "Could not open $outfile:$!\n";
print OUT $_ while <>;

perl -e 'open OUT,">".shift;print OUT <>' output *.txt