my @files = glob("/usr/bin/*");

while (1) {
    my $random = int(rand(@files));