TITLE OF MY HTML PAGE

                         <TITLE>TITLE OF MY HTML PAGE</TITLE>


##</code><code>##

                         mainpage.html      TITLE OF MY HTML PAGE
                         secondpage.html   Another Title in an HTML Page   



##</code><code>##

                         use File::Find;

                         sub wanted 
                         {
                         if( -f $_ = '*.htm* ) 
                         {
                         open ( F, $_ ) or die;
                         while( defined( $line = <F> ) ) 
                         {
                         if( $line =~ /<TITLE>(\w+)</TITLE>/i) 
                         {
                         print "FILE = $_  and TITLE = $1\n";
                         }
                         elsif( $line =~ /<title>(.*$)<title>/i)
                         {
                         print "FILE = $_  and TITLE = $1\n";
                         }

                         }
                         close F;
                         }
                         }
                         find( \&wanted, "." );