d:\>perl -e "print +($a += 1)  %= 2 for 1..10"
1010101010