ich hab glaub ich was gefunden, "untaint_skip", aber ich weis nicht wie ich das einbinden kann... http://perldoc.perl.org/File/Find.html

und versteckte Ordner werden auch nicht einbezogen...