timing_is_everything.pl

use Time::Piece;
use Time::Seconds;
use v5.22.0;

my $time = Time::Piece->new;
my $tomorrow  = $time + ONE_DAY;
my $lastWeek  = $time - ONE_WEEK;
my $lastMonth = $time - ONE_MONTH;

say "$time \n$lastMonth";