use Date::Simple ('date', 'today');
my $date = today();
print "Today is: "     , $date, "\n";
print "Tomorrow is: "  , $date + 1, "\n";
print "Yesterday is: " , $date - 1, "\n";