Perl directory list - List all files that match a filename pattern

Reference:
http://alvinalexander.com/blog/post/perl/generate-all-html-files-in-directory

#!/usr/bin/perl -w

opendir(DIR, ".");
@files = grep(/\.html$/,readdir(DIR));
closedir(DIR);

foreach $file (@files) {
   print "$file\n";
}