use CGI::Cache;

 #Set up cache
 CGI::Cache::setup( { cache_options =>
                      { cache_root => 'CGI_Cache',
                        namespace => 'content',                        
                        max_size => 2 * 1024 * 1024 * 1024  ,
                        default_expires_in => (24-(localtime(time))[2]).' hours',
#                        stderr_filehandle => $stderr,
                      }
                    } );

 my @cachekey=@parameter;
 CGI::Cache::set_key(@cachekey);
 $cacheit=1;
 CGI::Cache::start() or eval {$dbh = GetSql->disconnect_dbi(1) if $dbh; 
 $elapsed=tv_interval ( $gettimeref );
 exit;};

CGI::Cache::stop() if $cacheit;