$expires=&calc_cookie_expires(-1);
            &write_cookies;
sub write_cookies{
    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";
}