my $cache = Cache::FileCache->new();
my $retcache = get('tvgid');
if (! defined $retcache) {
    # Build your page
    #            cache   content expiry
    $cache->set('tvgid', $page, "5 minutes");
} else {
    # Return your page
}