use warnings;
use strict;
use DateTime::Format::Strptime;

my $now = DateTime->now;
print "$now\n";

my $strp = DateTime::Format::Strptime->new(on_error=>'croak',
	pattern => '%Y-%m-%d %H:%M:%S', time_zone=>'UTC');
my $dtevent = $strp->parse_datetime('2017-06-28 05:30:31');
print "$dtevent\n";

my $diff_sec = $now->subtract_datetime_absolute($dtevent)
	->in_units('seconds');
my $diff_hours = $diff_sec/(60*60);
print "$diff_sec s / $diff_hours h\n";

if ($diff_hours>2) {
	print "$dtevent was more than 2 hours ago\n";
}