sub get_cgi_query
{           
     my %cookies = CGI::Cookie->fetch;
     my $hook_id = $cookies{CGISESSID}->value unless !defined($cookies{CGISESSID});
     if (defined($hook_id))
     {   
         return CGI->new(\&hook,$hook_id);
     }   
     else
     {
         return CGI->new();
     }   
          
}