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

##</code><code>##

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

$A = pack 'A*', $s;;

print $A cmp $s;;
0