Select Code to Download

{
   my $saved_option = 10; # default value is 10
...
      return $saved_option
   }
}

my $option = 10;
while (1) {
...
   my $random = int(rand($option));
   # do stuff with $random
}