require HTTP::DetectUserAgent;                                       
my $ua = HTTP::DetectUserAgent->new($HTTP_USER_AGENT);
my $type    = $ua->type;    
if($type eq "Browser"){
  $browser_type = $ua->name;     
  $browser_version = $ua->version;  
  $search_bot = 0; 
}