Select Code to Download

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

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