opendir (DIR, $dir) or die "cannot open dir $!\n";
my @files = readdir(DIR);
close DIR;