Select Code to Download

# Code from the perldoc
use Memoize;
...

# Set up memoization, supplying expiring persistent hash for cache
memoize 'function', SCALAR_CACHE => [ HASH => \%cache ];

  
if(exists($args{HASH}))
  {
...
  {
      $args{C} = \%cache;
  }