Select Code to Download

use IPC::Shareable;
tie $robj->{status}, 'IPC::Shareable', 'data_glue', {create => 0, mode
+ => 664, destroy => 0};
(tied $robj->{status})->remove();

> ipcs -ma
------ Shared Memory Segments --------
key        shmid      owner      perms      bytes      nattch     stat
+us
...
------ Message Queues --------
key        msqid      owner      perms      used-bytes   messages
0x00001f58 0          root       600        0            0