use strict;
use warnings;

use LWP::Simple;
use Cache::MemoryCache;

my $cache = Cache::MemoryCache->new({
   namespace          => 'MyNamespace',
   default_expires_in => 60,
});


for (1..3) {
   my $page = $cache->get('perlmonks');
   unless ($page) {
      warn "fetching from web\n";
      $page = get('http://perlmonks.org');
      $cache->set('perlmonks', $page, "1 minute" );
   } else {
      warn "fetching from cache\n";
   }
}