$session = new CGI::Session;
 print my $CGISESSID = $session->id;