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'.