use File::Find;


  sub wanted
  {
   if( $_ =~ /\.html?$/)
   {
     my $name = $File::Find::name;
     open ( F, $name ) or die "$!: $name\n";
     while($line = <F>)
     {
        if($line =~ /<title>(.+)<\/title>/i)
        {
        print "Title = $1\n";
        }
     }
  close F;
   }
  }
  find( \&wanted, "/unixpath/webfiles" );
print "title = $1\n" unless $seen{$1}++;