my $out = 'bklighting.xml';
open (OUTFILE, ">>$out") or die("output file cannot ");
close(OUTFILE);

my $workdir = "./html";
opendir(DIR, $workdir) || die "can't opendir $workdir: $!";
my @htmls = readdir(DIR);
closedir DIR;
    
#shift away dot directory
shift @htmls;
shift @htmls;

file n directory operation

file, directory

Perl