Nachtrag:
bei Cookie setzen wird natürlich das Cookie noch nicht in den Header geschrieben, sondern erst bei writecookie(). (Ich setze hier sogar 2 Cookies, sodaß die User ihre Namensangaben beim nächsten Mal nicht immer wieder neu eintippen müssen )
sub writecookie {
my ($name, $email, $hpaddress, $icq, $sessioncookie) = @_;
my $cookie = $query->cookie(-name => 'acid4uforum',
-value => ["$name","$email","$hpaddress","$icq"],
-expires => '+10M',
-path => '/');
print $query->header(-cookie=>[$cookie,$sessioncookie],
-location=>"$url");
}