Select Code to Download

my $pErr = 5; # for plus/minus 5.
sub MakeP { my $p = $_[0]; $p -= $pErr; $p += int(rand() * 2 * ($pErr 
++ 0.5)); return $p / 100 }
...
        ++$count; shift @foo }
    printf "%f\t%6d\n", $next, $count;
}

sub MakeP { 
   my $p = $_[0];
...
   $p += int( rand() * 2 * ( $e + 0.5 ) ); 
   return $p / 100
}