#!/usr/bin/perl

use strict;
use warnings;
use DateTime;

my $date = DateTime->new(
    time_zone => "UTC",
    year => 2019,
    month => 8,
    day => 10,
);

my $now = DateTime->now;
my $delta = $now - $date;
my $months = $delta->{'months'};
my $days = $delta->{'days'};
print "Delta = $months months, and $days days\n";
print "*** Alert ***\n" if ($months < -2);
exit();

__END__