my $cookie = $query->cookie(-name=>'foo',-value=>'bar',-domain=>'mydomain.com');
print $query->header(-type=>'text/html',-cookie=>$cookie);