sub GetUserSessionCookie
{
    warn("Entered GetUserSessionCookie Sessionname: '$sessionname'");	
	my $sid;
        my $sessionname = 'CGISESSID'; 
#	# fetch existing cookies
	my %cookies = CGI::Cookie->fetch;
#	warn Dumper \%cookies;
	while ( my ($sessName, $sessId) = each(%cookies) ) {
#	   Dumper($sessId);
	   if ($sessName eq $sessionname) {   
          $sid = $sessId;   
         }
      }
#	 $sid = '12ba7ce0cfeeae8e8a934af6724910e9';
# 	 $sid = '1492';
# 	 $sid = 0;
	
	return $sid;
}