$tied = tie %hash, 'IPC::Shareable', {
        key => 'test',
#       destroy => 'yes',
        create => 1
    };
        IPC::Shareable->clean_up_all;
    # but this does:
    # $tied->remove;
    exit 0;