sub get_cookie
{
 ################################################
 #Retrieve the cookie
 #Uses a global variable ($p) for the CGI object
 #Returns user information 
 ################################################

 my %userinf;
 if ($p->cookie('mycookie'))
 {
  my $values = $p->cookie('mycookie');
  %userinf = split /:/,$values;
 }
 else {
  display_login(); #No cookie, force a login
 }
 print $p->header();
 return (%userinf);
}