atarist/test/tbinmode

   1 open(FP, ">bintest") || die "Can't open bintest for write\n";
   2 binmode FP;
   3 print FP pack("C*", 0xaa, 0x55, 0xaa, 0x55,
   4                     0xff, 0x0d, 0x0a);
   5 close FP;
   6
   7 open(FP, "<bintest") || die "Can't open bintest for read\n";
   8 binmode FP;
   9 @got = unpack("C*", <FP>);
  10 close FP;
  11 printf "expect:\t7 elements: aa 55 aa 55 ff 0d 0a\n";
  12 printf "got:\t%d elements: %x %x %x %x %x %02x %02x\n", $#got+1-$[, @got;