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