## バイナリファイルを読み込んで16進数の文字列で書き出すサンプル

binmode(STDIN);
$cnt  = 0;
$addr = 0;
while(1==1) {
  printf("%08x ",$addr) if (0==$cnt) ;

  last if undef == read(STDIN, $code, 1);
  printf("%02X ", unpack("C",$code) );
  $cnt++;

  if (16==$cnt) {
    print "\n";
    $addr+=$cnt;
    $cnt=0;
  }
}
print "\n--- end\n";