%cookies = CGI::Cookie->fetch;
        $sessionid = $cookies{'CGISESSID'}->value;
     $session = CGI::Session->load(undef, $sessionid, {Directory=>''})
+ or die CGI:Session->errstr();
    $login  = $session->param('login');
    $logswitch = ($login); 

##</code><code>##

    if (exists $cookies{name}) {
     %cookies = CGI::Cookie->fetch;
        $sessionid = $cookies{'CGISESSID'}->value;
      $session = CGI::Session->load(undef, $sessionid, {Directory=>''}
+) or die CGI::Session->errstr();
    $login  = $session->param('login');
    $logswitch = ($login);
}