# Create new cookies and send them
$cookie1 = new CGI::Cookie(-name=>'ID',-value=>123456);
print header(-cookie=>[$cookie1]);

##</code><code>##

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