use strict; use warnings; use Date::Manip; my $task_start = new Date::Manip::Date; my $task_end = new Date::Manip::Date; my $err = $task_start->parse('2018-12-07 02:52:05'); $err = $task_end->parse('2018-12-09 04:27:00'); $task_start->config('workday24hr',1); $task_end->config('workday24hr', 1); $task_start->config('FirstDay', 7); $task_end->config('FirstDay', 7); my $delta = $task_start->calc($task_end,"business"); print $delta->value()."\n"; 0:0:0:0:21:7:55