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