#!/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