sub hex_it { return join ' ', map {sprintf '%2.2x', $_} unpack('C*', $_[0]); }