use File::Find;
use HTML::Parser; # this code doesn't make use of the module, but I really think you should use it in your code =)
my @data;
find(\&html_files, "/base/path");
# now process @data, which is a list of filenames
sub html_files {
push @data, $File::Find::name if /\.s?html?$/;
}