open(my $inbin, '<', $infile) || die "unable to open $infile";  
binmode($inbin)               || die "unable to set binmode $infile;

open (my $outbin, '>', $outfile) || die "unable to open $outfile";
binmode($outbin)	         || die "unable to set binmode $outfile";
   
while (read($inbin, my $buff, 8 * 2**10))
{
        print $outbin $buff;
}
close($inbin)  || die("unable to close $infile");  
close($outbin) || die("unable to close $outfile");