You could also go the very long way and use the opendir and stat functions. You would learn more, but the File::Find module its definitely easier.

Best of luck!