#!/opt/perl/bin/perl -w
use IPC::Shareable;

my %options     = ( create          => 1,
                    exclusive       => 0,
                    mode            => 0644,
                    destroy         => 0 );

tie %data,          'IPC::Shareable', 'data', { %options };

my $i = 0;

while (1) {
    print $i++."\n";

    %data = ();
    IPC::Shareable->clean_up();
    tie %data,          'IPC::Shareable', 'data', { %options };
    $data{test}{'test'} = $i;
    sleep 1;
}