Why the infinite loop? You can use Devel::throttle to put it into slow motion. On your shebang line:

#!/usr/bin/perl -d:throttle(0.2)
[download]