Another comment, please remember that you can't print the header previously. In other words, this may give you problems:

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

Here's a way around that problem:

print $query->redirect('http://www.perlmonks.org/', -cookie => $newcoo
+kie);
[download]

Good luck.