use Storable qw( freeze thaw);
my @regarray;
my $share = new IPC::ShareLite(-key=>1971,
                               -create=>"yes",
                               -destroy=>"no")
                  or die $!;
@regarray = thaw($share->fetch);