$CGI::Session::MySQL::TABLE_NAME = 'sessions'; my $session = CGI::Session->load() or die CGI::Session->errstr; if ( $session->is_expired ) { die "Your session expired. Please refresh"; } if ( $session->is_empty ) { my $session = new CGI::Session("driver:MySQL", $cgiquery, {Handle=>$db}); $session->expire(3600); } print $session;