#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize::Cached;
use CHI;
my $cache = CHI->new( driver => 'File',
root_dir => '/tmp/mech-example'
);
my $mech = WWW::Mechanize::Cached->new( cache => $cache );
$mech->get("http://www.google.com");
print $mech->content;