#/usr/bin/perl
use strict;
use warnings;
use Time::Piece;
use Time::Piece::Month;
use Time::Seconds;

my $date =  Time::Piece->strptime( "2002-01-31", '%Y-%m-%d' );
$date += ONE_MONTH;
print "\n Date:",$date->ymd;