use IPC::ShareLite;
use Storable qw( freeze thaw );

$share = new IPC::ShareLite( -key       => 412469,
                             -create    => 'no',
                             -destroy   => 'no' ) or die $!;

#$hash = { test1 => "hello" , test2 => "world"};

#$share->store(freeze($hash));

$hash = thaw($share->fetch());
foreach(keys %$hash)
{
        print $_."->".$hash->{$_}."\n";
}