#/usr/bin/perl

use strict;
use warnings;
use Time::Piece;
use Time::Seconds;

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