Here's a snippet of code that just prints a listing of every file in the current directory that ends with the extension .html:

#!/usr/bin/perl -w

opendir(DIR, ".");

@files = grep(/.html$/,readdir(DIR));

closedir(DIR);

foreach $file (@files) {

print "$filen";

}