use Cache::Mmap;

my %options = (
        expiry  => 3,
);
my $filename = "/tmp/cache-test";
$cache=Cache::Mmap->new($filename,\%options);

my $key1 = "Test";
$val1=$cache->read($key1);
print "read key1: $val1\n";
$val1++;
print "val1: $val1\n";
$cache->write($key1,$val1);
$val1=$cache->read($key1);
print "read key1 after write: $val1\n";