use PIR;
my @files = PIR->new->file->all($some_dir);
printf "Random file is: %s\n", $files[rand @files];