Here's a commonly used trick, adapted from "get a random line from a file":

my ($n, $file);
opendir DIR, $path or die "can't opendir $path: $!";
while (defined (my $f = readdir DIR)) {
  next if -d "$path/$f";
  $file = $f if rand(++$n) < 1;
}
closedir DIR;
$file = "$path/$f";
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;