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";

}