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

##</code><code>##

> ipcs -ma
------ Shared Memory Segments --------
key        shmid      owner      perms      bytes      nattch     status
0x61746164 16187392   root      230        65536      0

------ Semaphore Arrays --------
key        semid      owner      perms      nsems
0x61746164 15630336   root      230        3

------ Message Queues --------
key        msqid      owner      perms      used-bytes   messages
0x00001f58 0          root       600        0            0