my $log_method = sub {
      my ($level,$msg) = @_;
      my $DBG_MAP = { 0 => $INFO, 1 => $WARN, 2 => $ERROR };
        my $conf = q(
                log4perl.category.appname  = INFO, Logfile
                log4perl.appender.Logfile          = Log::Log4perl::Appender::File
                log4perl.appender.Logfile.filename = /usr/local/eFTP/logs/appname.pl.log
                log4perl.appender.Logfile.layout = \
                Log::Log4perl::Layout::PatternLayout
                log4perl.appender.Logfile.layout.ConversionPattern = %d %F{1} %L> %m %n
        );

        Log::Log4perl::init(\$conf);

      my $logger = Log::Log4Perl->get_logger("appname");
      $logger->log($DBG_MAP->{$level},$msg);
};


##</code><code>##

my $cron = new Schedule::Cron(\&dispatcher,
                                nofork => 1,
                                #log => \&Log,
                                log => $log_method,
                                );
$cron->add_entry("* * * * *",
                 {'subroutine' => \&TestSub(),
                  'arguments' => [ "INFO", "a test" ],
                  }
                );