my $dir = '/var/www/htdocs/';
opendir DIR, $dir or die "Can't open dir $dir $!\n";
my @entries = grep { /\.html$/ } readdir DIR;
closedir DIR;
print "@entries";