$ perl simulate.pl 
== LOOP 99900 ==
Success:   31139
Fail:      68861
Fail rate: 68.861%