use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

my $now = localtime;
print "Today: $now\n";
print " Week: ", $now - ONE_WEEK, $/;
print "  Mon: ", $now - ONE_MONTH, $/;
print " Year: ", $now - ONE_YEAR, $/;
print "\n";
print "Today: $now\n";
print " Week: ", $now - ONE_WEEK, $/;
print "  Mon: ", $now - ONE_MONTH + (ONE_HOUR * 10) + (ONE_MINUTE * 29) + 4, $/;
print " Year: ", $now - ONE_YEAR + (ONE_HOUR * 6) - (ONE_MINUTE * 11) - 10, $/;

__DATA__
Today: Fri Oct  2 12:30:17 2015
 Week: Fri Sep 25 12:30:17 2015
  Mon: Wed Sep  2 02:01:13 2015
 Year: Thu Oct  2 06:41:27 2014

Today: Fri Oct  2 12:30:17 2015
 Week: Fri Sep 25 12:30:17 2015
  Mon: Wed Sep  2 12:30:17 2015
 Year: Thu Oct  2 12:30:17 2014