opendir(PWD,$name) or die "$name: $!";
my @files = readdir(PWD) or die "$name: $!";