perl foo.pl

##</code><code>##

find ~ -name \*.pl -print0 | xargs -0 chmod 755