find /usr/lib/perl5 -user root -exec chown $username:$groupname {} +