find /root/directory -type d | xargs perlscript.pl