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