Select Code to Download

sub write_cookies { 

...
    print "Set-Cookie: regtype=$regtype; expires=$expires; path=/;\n";

}

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