use strict;
use IPC::Shareable;

my @test;
my $shared = tie @test, 'IPC::Shareable', 'Test', {create=>1, mode=>0666};
$shared->shlock();
push @test, scalar(localtime); # just add something
print join("\n", @test),"\n";
$shared->shunlock();