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