opendir DIR, $dir or die "cannot open dir $dir: $!";
my @filenames= readdir DIR;
closedir DIR;