$log_ses= new CGI::Session();
$CGISESSID =  $log_ses->id();
$cookie1 = new CGI::Simple::Cookie( -name=>'ID', -value=>$CGISESSID );

##</code><code>##

%cookies = fetch CGI::Simple::Cookie;
$id = $cookies{'ID'}->value;