use strict;
use warnings;

use DateTime;
my $start_date = DateTime->now();
my $end_date   = $start_date + DateTime::Duration->new(months => 2);
print $start_date->datetime, "\n", $end_date->datetime, "\n\n";


use DateTime::Event::Cron;
my $crontab = '0 0 * * 1-5';
my $set = DateTime::Event::Cron->from_cron(
  cron   => $crontab,
  start  => $start_date,
  before => $end_date
  # to include $end_date, use 'end' rather than 'before'
);
my @weekdays = $set->as_list;
print scalar @weekdays, " weekdays : ", scalar @weekdays * 8, " work hours\n";