$hash = $q->cookie(-name=>'sessionid',-value=>'$id',-expires=>'+1d');
print $q->header(-cookie=>$hash);
print "Location: $url\n\n";