open(FH,"file.exe");
binmode(FH);
my $binary;
while(<FH>) {
 $binary .= $_;
}
close(FH);

open(FH,">newfile");
print FH $binary;
close(FH);