Help for this page

Select Code to Download


  1. or download this
    my $log = Log::Log4perl->get_logger("wiftv");
...
$log->debug("waittime  $waittime");
sleep($waittime);
$log->debug("end loop");
  2. or download this
    ...
[2015/10/23 19:41:29] DEBUG wiftv - waittime  60