#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;

my $date_1 = "November 24 2017 4:59pm";
my $date_2 = "November 27 2017 08:01am";

my $sec = Delta_Format(DateCalc($date_1, $date_2, "business"), 0, "%st");
printf "diff secs: %d\n", $sec;

__END__

$ perl sample.pl
diff secs: 120

##</code><code>##

exact    : an exact, non-business calculation
semi     : a semi-exact, non-business calculation
approx   : an approximate, non-business calculation

business : an exact, business calculation
bsemi    : a semi-exact, business calculation
bapprox  : an approximate, business calculation