my @newfiles =
    map { File::Spec->catfile($dirname, $_) }
    grep { $_ ne '.' and $_ ne '..' }
        readdir NEWDIR;