return unless($_ =~ /\.html/i);

return unless($_ =~ /\.htm(l)?/i);

#!perl -w

use strict;
use File::Find;
use CGI qw(:standard);
my $query = param("query");


#VARS DE CONFIGURACIÓN

#LUGAR DONDE QUIERES BUSCAR. NO USES EL / FINAL
my $root_dir = '/home/user/public_html';

#URL DEL DIRECTORIO QUE VAS A BUSCAR. SIN EL / FINAL
my $url_dir = 'http://misitio.com';


print header();
print start_html();
print "\n<p>Para la búsqueda $query, estos resultados se encontraron:</p>\n<ol>\n";

undef $/;

find( sub {
        return if($_ =~ /^\./);
        return unless($_ =~ /\.htm(l)?/i);
        stat $File::Find::name;
        return if -d;
        return unless -r;

           open(FILE, "< $File::Find::name") or return;
             my $string = <FILE>;
           close (FILE);

             return unless ($string =~ /\Q$query\E/i);
               my $page_title = $_;

                if ($string =~ /<title>(.*?)<\/title>/is){
                    $page_title = $1;
                }

               my $int_dir = $File::Find::dir;
                  $int_dir =~ s/$root_dir//i;
               my $url = $url_dir . $int_dir . "/" . $_;

         print "<li><a href=\"$url\">$page_title</a></li>\n";
      }, $root_dir);

print "</ol>\n";

print end_html();


exit(1);

LI{
color:blue;
font-size:9pt;
}

print "<li><a href="$url">$page_title</a></li>\n";

print "<li><a href="$url" target="_blank">$page_title</a></li>\n";