$cgi = CGI->new; $sid = $cgi->cookie("CGISESSID") || undef; $session = CGI::Session->load($sid); $session->delete();