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

my $dateStart = "Jan 29 2018 4:59pm";
my $dateEnd = "Jan 30 2018 08:01am";

my $business = DateCalc($dateStart, $dateEnd, "business");
my $businessTime =
    Delta_Format($business,
		 0, "Time in %hv hours, %mv minutes, %sv seconds");
say $businessTime;

__END__

$ perl test.pl
Time in 0 hours, 2 minutes, 0 seconds