Help for this page

Select Code to Download

Select or download this

use strict ;
use warnings ;
...
  use bytes ;
  print join(":", map(sprintf("%02X", $_), unpack('C*', $s))), " -- $w
+\n" ;
} ;