sub GetUserSessionCookie
{
    warn("Entered GetUserSessionCookie Sessionname: '$sessionname'");	

    # fetch existing cookies from cookie.pm CGI::Cookie - Interface to HTTP Cookies
	my %cookies = CGI::Cookie->fetch;
    my $id = $cookies{'ID'}->value;

	my $sid = $id;
    warn($sid);	  
 	$sid = 0;  #for testing the rest of program. If I put in valid SID from 
	#cookie recognizes user as logged on. 
	
	return $sid;
}