use Time::Piece;

my $t = gmtime;
print $t->ymd . "\n";
$t += ONE_DAY;
print $t->ymd . "\n";
my $t2 = $t + ONE_DAY;
print $t2->ymd . "\n";

prints...
2014-11-20
2014-11-20
2014-11-20