opendir (local *DIR,$dir)
    || die "unable top open dir $dir $!";
    my @files = grep(/\w+/,readdir(DIR));
    closedir (DIR);