ben@feynman:~$ perl -wle'$number = "one"; $number++ for 1..3624; print $number' two