I'd probably use File::Find, stat, and getpwent.

Although it would probably be quicker and easier to just use ls, grep and awk :p