Actually I dont think I did read any of the perl books or tutorials when I wrote this, it was all picked up watching a friend code. I was just starting out with perl (Feb 2001) so that's why I use print, and simple math, back then I didn't know of printf, sprintf, pack, modulus, perl one-liners or anything of the sort.