Select Code to Download

$ibuf_display = sprintf("%x ", ord(substr($ibuf, 1, 1)));

(my $hex = unpack("H*", $buf)) =~ s/(..)/$1 /g;
print $hex, "\n";