#!/usr/bin/perl -wT

use strict;
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
my $dir = '/var/www/htdocs';
opendir(DIR, $dir) or die "Can't opendir $dir: $!\n";
my @entries = map { /\.html\z/ ? "$dir/$_" : () } readdir(DIR);
closedir(DIR);