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

my $date1 = ParseDate("now");
my $date2 = ParseDate("2 hours ago");
my $delta = DateCalc($date1, $date2, 1);
say $delta;
say Delta_Format($delta,"Was %hv hours, %mv minutes, %sv seconds");

__END__

$ perl test.pl
0:0:0:0:-2:0:0
Was -2 hours, 0 minutes, 0 seconds