Page Title

##




Page Title













  Home
  About
  Contact
  






   
   
   
  
   




  
  
    John Doe 
    Architect & Engineer 
  






##

##

#!/usr/bin/env perl
use strict;
use warnings;
use File::Find;
use CGI qw(:standard);
my $query = param("query");
print header();
print start_html();
print "n
For the query $query, these results were found:

n
n";
undef $/;find( sub
{
 return if($_ =~ /^./);
 return unless($_ =~ /.html/i);
 stat $File::Find::name;
 return if -d;
 return unless -r; open(FILE, "< $File::Find::name") or return;
 my $string = ;
 close (FILE); return unless ($string =~ /Q$queryE/i);
 my $page_title = $_;
 if ($string =~ /(.*?)/is)
 {
     $page_title = $1;
 }
 print "$page_titlen";
},
'/home/username/public_html');print "
n";
print end_html();End