$cookie = $q->cookie(-name=>"username",-value=>$username);
print $q->header(-cookie=>$cookie);