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