use strict;
use warnings;

my $destination = pop @ARGV;
open OUT, ">$destination"
	or die "Couldn't create the concatenated file $destination: $!\n";
print OUT while (<>);
close OUT;