Select Code to Download

sub makeitbig {
  my $default_value = 'xxx';
...
  my $random1 = int( rand(makeitbig()) );
  return $random1;    
}

# not tested, but you get the gist
sub makeitbig {
...
sub testmode {
  return int( rand(makeitbig()) );    
}