Select Code to Download

rand(0 .. $total)

rand($total+1)

rand(0+@aob)

while (1) {
    my $xda = int rand( 0+@aob );
...
        last;
    }
}