for module in ;do grep $module `find / | xargs file | grep Perl | cut -d":" -f1` done