find `perl -e 'print join(" ",split/:/,$ENV{PATH})'` -type f -perm -4000 -uid 0 2>/dev/null