#!/usr/bin/perl

use strict;
use warnings;
use Date::Handler;
use Date::Handler::Delta;

my $delta = new Date::Handler::Delta({
date=>[1,0,0,0,0,0],
time_zone=>'Asia/Shanghai',
locale=>'zh_CN.utf8',
});

my $date = new Date::Handler({
date=>time,
time_zone=>'Asia/Shanghai',
locale=>'zh_CN.utf8',
});

my $newdate = $date + $delta;