sub dispatcher { 
    ...
  }
  ...
  my $cron = new Schedule::Cron(\&dispatcher);