my %cookies = CGI::Cookie->fetch;
	my $count = keys %cookies;
	warn("keycount: '$count'"); 
	
    while(my($key, $value) = each %cookies){
	   Dumper \$key;
	   Dumper \$value;
      if($key eq $sessionname){
         $sid = $value;
       }
     
	 
	 }