Select Code to Download

use strict;
use warnings;
...
   $log->printf("Looped in %d\n",$foo);  # or printf $log ...
   sleep 2;
}