In which case, we can use a CPAN module, such as Date::Simple:

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";
[download]

Update: oops... didn't see your updated code