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