Fixed variable speed and made it perl -e friendly.
Finally, made rand() slightly cooler.