Select Code to Download

use Cache::Mmap;

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

main::(Cache-Mmap.pl:13):       print "val1: $val1\n";
  DB<1>
...
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.