opendir my $d,$dirname or die "Could not open $dirname: $!";
while (defined (my $item=readdir $d)) {
   $item=~/\.html$/ or next;
   work_on_the_item($item);
}
closedir $d;