This module handily returns to you a random file from a large file system. It uses File::Find and should support multiple platforms.

Here are the basic install instructions.

perl Build.PL
/Build
/Build test
/Build install


If you are on a windows box you should use 'nmake' rather than 'make'.