#!/usr/bin/perl -w

use strict;
use Storable qw( freeze thaw);
use IPC::ShareLite;
printf "Storable %s\nIPC::ShareLite %s\n", $Storable::VERSION, $IPC::ShareLite::VERSION;

my $ary = [ qw( Use shared memory ) ];

my $frozen = freeze( $ary );
my $thaw   = thaw( $frozen );
print "Freeze/thaw ok\n" if "@$ary" eq "@$thaw";

my $share = new IPC::ShareLite(-key=>1971,
                               -create=>"yes",
                               -destroy=>"no")
                  or die $!;

$share->store( $frozen );
my $shm_frozen = $share->fetch;
my $shm_thaw = thaw( $shm_frozen );
print "Share mem freeze/thaw ok\n@$shm_thaw!\n" if "@$ary" eq "@$shm_thaw";

[root@devel3 root]# ./shm_test.pl
Storable 1.014
IPC::ShareLite 0.09
Freeze/thaw ok
Share mem freeze/thaw ok
Use shared memory!
[root@devel3 root]#