or download this
my $cookies = new HTTP::Cookies;
$cookies->set_cookie(0,'foo','foog','/','.blah.com','80',0,0,1000,1,{}
+);
$cookies->set_cookie(0,'moo','1025','/','.blah.com','80',0,0,1000,1,{}
+);
...
# $cook is now the same as $cookies above and we can use it as if it w
+as
print $cook->as_string;