# holdcache.pl

use Cache::SharedMemoryCache;
my %cache_options_= (
  'namespace' => 'MyNamespace',
);
my $c = Cache::SharedMemoryCache->new( \%cache_options )
  or die( "Couldn't instantiate SharedMemoryCache" );

while (1) { sleep 300; }

__END__


##</code><code>##

$ perl holdcache.pl &

$ perl -e 'use Cache::SharedMemoryCache;$c=Cache::SharedMemoryCache->new({namespace=>"MyNamespace"}) or die;$c->set("foo",1);'

$ perl -e 'use Cache::SharedMemoryCache;$c=Cache::SharedMemoryCache->new({namespace=>"MyNamespace"}) or die;$x=$c->get("foo");print $x,$/'
1