Select Code to Download

$shm_somehash->write(pack("A*", $serialized), 0, 1024);

$s = ''; $s .= chr( $_ ) for  0 .. 255;;

...

print $A cmp $s;;
0