#!/usr/bin/perl -n
BEGIN{die "file please" unless $ARGV[0];}
push @a,$_;
END{
open(FILE, ">>".shift @a);
foreach(@a){
open(FILE2, "<$_");
while(<FILE2>){
print FILE $_;
}close FILE2}
}