sub wanted
{
   if( $_ =~ /\.html?$/)
   {
      
       my $name = $File::Find::name;
       open ( F, $name ) or die "$!: $name\n";
           while($line = <F>)
             {
             if($line =~ /<title>(.+)<\/title>/i) && ($line =~ /<a href(.+ ##not sure here???
             {
                 $ct++;
                 print "FILE = $File::Find::name   TITLE = $1  URL = $2\n";
             }
             }
   close F;
   }