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