open(INBIN, "<$x") || die "unable to open $x";  
binmode(INBIN)     || die "unable to set binmode $x";
while (read(INBIN, my $buff, 8 * 2**10))
{
    print OUTBIN $buff;
}
close(INBIN) || die "unable to close inbin"; 
close(OUTBIN) || die "unable to close outbin";