my $plus  = rand(100) < $P;
    my $minus = rand(100) < $N;