Help for this page

Select Code to Download

Select or download this

my @files = glob("/usr/bin/*");
my $range = $#files; #scalar(@files)-1;

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

Select or download this

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

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