print "Set-Cookie: $newcookie=$value; path=$path; expires=$time\n";
print $query->redirect('http://www.perlmonks.org/'); 

##</code><code>##

print $query->redirect('http://www.perlmonks.org/', -cookie => $newcookie);