Select Code to Download

#!/usr/bin/perl -w

use strict ;
...
  my $random_number = int(rand($range)) - $max/2;
  print "$random_number \n";
}

#!/usr/bin/perl -w

use strict ;
...
    $min = $i ;
  }
}