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

##</code><code>##

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