#! perl -slw
use strict;

our $BUFSIZE //= 10*1024**2;

my( $source, $target ) = @ARGV;

open IN, '<', $source or die "$source: $!";
binmode IN;
open OUT, '>>', $target or die "$target: $!";
binmode OUT;

{
    local( $/, $\ ) = \$BUFSIZE;
    print OUT while <IN>;
}

close OUT;
close IN;