Select Code to Download

my $log_method = sub {
...
      $logger->log($DBG_MAP->{$level},$msg);
};

my $cron = new Schedule::Cron(\&dispatcher,
                                nofork => 1,
...
                  'arguments' => [ "INFO", "a test" ],
                  }
                );