sub hexout
 {
 join (' ', map { sprintf "%02x", $_ } (unpack ("C*", shift)));
 }