Hi,

You can use Date::Simple

use Date::Simple ();
my $date  = Date::Simple->new('1972-01-31');
print $date->next;
[download]

Regards,