perl -MFile::Finder -e 'File::Finder->type("f")->perm("-200")->ls->in(@ARGV)' .