#!/usr/bin/perl
#name: date.pl
    use strict;
    use warnings;
    use Date::Handler;
    use Date::Handler::Delta;

    my $delta = new Date::Handler::Delta([3,0,0,0,0,0]);

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

    my $newdate = $date + $delta;

    print "date=$date\n";
    print "delta=$delta\n";
    print "newdate=$newdate\n";