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

##</code><code>##

<script language=javascript>
{

    var the_cookie = document.cookie;
    var the_cookie = unescape(the_cookie);
    var broken_cookie = the_cookie.split("=");
    var the_regtype = broken_cookie[3];
	if (the_regtype != 'member') {
    	window.location="http://www.domain.com/cgi-bin/login.pl?logout=yes";
    }

}
</script>

##</code><code>##

var the_regtype = broken_cookie[3];

##</code><code>##

var the_regtype = broken_cookie[4];