opendir (DIR, $DIR) || die ('Error Open $DIR');
my @files = glob("$DIR/*.html");
...
...