use strict;
use warnings;
use WWW::Mechanize::Cached;
use Cache::FileCache;

my $cache = new Cache::FileCache( {
		cache_root => '/usr/home/2get/tmp/filecache',
		default_expires => '365 days',
		cache_depth => 3,
}); 

my $mech = WWW::Mechanize::Cached->new(
		cache => $cache,
		stack_depth => 10
);

my $url = "http://www.rulez.sk/headers.php";
$cache->remove($url) or warn "cannot remove: $!";

my $response = $mech->get($url);
print $mech->is_cached() ? "$url was cached" : "$url was NOT cached";