用perl读写二进制的文件

open(FP, $file) || die "cannot open file $!";
binmode(FP);
open(TMPFP, ">a.tmp"|| die "cannot open file $!";
binmode(TMPFP);
my $buffer = "";
while(read(FP, $buffer, 1024)) {
  syswrite(TMPFP, $buffer, length($buffer));
  print "$buffer";
  print '=' x 24;
}
close(FP);
close(TMPFP);