$login_cookie		= new CGI::Cookie(-name=>'loginID',-value=>'admin');
$password_cookie	= new CGI::Cookie(-name=>'loginPassword',-value=>'go');
print header(-cookie=>[$login_cookie,$password_cookie]);

##</code><code>##

Set-Cookie: loginID=admin; path=/ Set-Cookie: loginPassword=go; path=/ Date: Thu, 03 Nov 2011 16:42:20 GMT Content-Type: text/html; charset=ISO-8859-1
##</code><code>##

%cookies = CGI::Cookie->fetch;
for (keys %cookies) {
print($cookies{$_});
}