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

##</code><code>##

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