That snippet will never work. You need to use IPC::ShareLite, but more importantly: how do you expect to fetch something from shared memory if you have not stored anything there in the first place?

I would first check that storable is working by freeze/thaw a var and make sure you get it back. Then store the serialised obect into shared memory, get it back, deserialize and check, then try to do it all in one line if you really want to. Untested: Works fine on RH 7.3 with Perl 5.6.2 and module versions shown.

#!/usr/bin/perl -w

use strict;
use Storable qw( freeze thaw);
use IPC::ShareLite;
printf "Storable %s\nIPC::ShareLite %s\n", $Storable::VERSION, $IPC::S
+hareLite::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_t
+haw";

[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]#
[download]