sub makeitbig {
     if (@_) {
         $default_value =shift;
         }
         else{
        return $default_value;
         }
sub testmode {
          my $random1 = int( rand(&makeitbig()) );
          return $random1;
     
  }