#!/usr/bin/perl
# name: date.pl

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

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

my $date = new Date::Handler({ date => time } );

#$newdate is now one year in the furure.
my $newdate = $date+$delta;