Someone

sub searchfiles() 
{
   return unless -f;
   if(!(open(IN,"< $File::Find::name")))
   {
     print "Cannot read file $File::Find::name.Skipping it";
   }
   else
   {
   	open(OUT,">> $outfile") or die "Couldn't open $outfile for writing:$!\n";
   	my $linenum=0;
   	my $s;
   	$filecount++;
   	while(defined(my $line=<IN>))
   	{
   	   $linenum++;
      	   chomp($line);
           if(index(lc($line),'set-cookie:') > -1 || index(lc($line),'setcookie') > -1 || index(lc($line),'document.cookie') > -1 || index(lc($line),'->cookie') > -1)
           {
      	     $s="Cookie code found in file $File::Find::name on line $linenum \n";
             print OUT "$s";
             $content=$content.$s;
           }
        }
   	close(IN);
   	close(OUT);
   }
}