#!/usr/local/bin/perl

use Time::Piece;
use Time::Seconds;

use strict;

my $time = Time::Piece->strptime( '2004-03-09 15:30:00', '%Y-%m-%d %
+H:%M:%S' );

my $new_time = $time + (ONE_DAY * 3)

print "$new_time\n";
[download]

Is another way to do it.

jdtoronto