# no 29 feb 2001
my $dt = Time::Piece->strptime("2001-02-29", "%F");
# will return 2001-03-01 
print $dt->strftime("%F");