my $t = localtime->strptime('2013-03-11', '%Y-%m-%d');
my $yesterday = $t - ONE_DAY();
my $tomorrow  = $t + ONE_DAY();
print "Today: ", $t->ymd(),"\n";
print "Yesterday: ", $yesterday->ymd(),"\n";
print "Tomorrow: ", $tomorrow->ymd(),"\n";

#Prints:
Today: 2013-03-11
Yesterday: 2013-03-09
Tomorrow: 2013-03-12