my $obj = thaw(pack('H*', $foo));