d:\>perl -e "print int rand()+.5 for 1..10"
1110110000