timing_is_everything.pl
12345678910
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";
Perl
INFO