my $log = Log::Log4perl->get_logger("wiftv");
...
$log->debug("waittime  $waittime");
sleep($waittime);
$log->debug("end loop");

##</code><code>##

...
[2015/10/23 19:41:29] DEBUG wiftv - waittime  60