sub write_cookies{
     my ($username, $password, $regtype, $expires) = @_;
     print "Set-Cookie: reguser=$username; expires=$expires; path=/;\n";
     print "Set-Cookie: regpass=$password; expires=$expires; path=/;\n";
     print "Set-Cookie: regtype=$regtype; expires=$expires; path=/;\n";
 }
##</code><code>##

write_cookies($username, $password, $regtype, calc_cookie_expires(-1));