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>##

local(@getcookies) = split (/; /,$ENV{'HTTP_COOKIE'});
local(%cookies);
foreach(@getcookies){
    ($ckey, $cval) = split (/=/,$_);
     $cookies{$ckey} = $cval;
}
$username = $cookies{'reguser'};
$password = $cookies{'regpass'};
$regtype = $cookies{'regtype'};
$login = "Login" if ($username && $password && !$logout);