use IPC::Shareable;
my %peering;
my %lastpeering;
my %options_now = (
                create          => 'yes',
                exclusive       => 'no',
                mode            => 0666,
                destroy         => 'no'
              );
my %options_then = (
                create          => 'yes',
                exclusive       => 'no',
                mode            => 0666,
                destroy         => 'no'
               );

tie %lastpeering, 'IPC::Shareable', $glue,  \%options2  or die "tie failed\n";
tie %peering, 'IPC::Shareable', $glue, \%options or die "tie failed\n";