I hope this little piece of Windows Perl is enough to start you up ... assuming it's not homework ...

> perl -MFile::Find -le "sub wanted {return unless /\.html?$/; my $f =
+ $_; open(FH, '<'.$f); $/=undef; return unless <FH> =~ /<title>([^<]*
+)<\/title>/i; print $1.' -- in: '.$File::Find::dir.$_;}; find(\&wante
+d, '.')"
[download]

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com