Random 1 or 0 is even easier
d:\>perl -e "print int rand()+.5 for 1..10" 1110110000 [download]
In reply to Re: random negative toggle function by EdwardG in thread random negative toggle function by zentara