opendir(DIR, '/var/www/htdocs') or die $!;
my @entries = grep{/.*\.html$/} readdir(DIR);
closedir(DIR);