>perl -wle"$x = 010; print $x; print $x == 10 ?1:0"
8
0