use Date::Simple qw/today/;
print today() + 5, "\n";
print today() + 9, "\n";