Here's a quick ex. with the aforementioned Date::Calc.

use strict;

use Date::Calc;
my ($year,$month,$day, $hour,$min,$sec) = Date::Calc::Today_and_Now();

my $addDays=0;
my $addHours=0;
my $addMins=0;
my $addSecs=10;

my ($nyear,$nmonth,$nday,$nhour,$nmin,$nsec) =
  Date::Calc::Add_Delta_DHMS($year,$month,$day, $hour,$min,$sec,
  $addDays,$addHours,$addMins,$addSecs);

print "Now          : $month/$day/$year $hour:$min:$sec \n";
print "Now + 10 secs: $nmonth/$nday/$nyear $nhour:$nmin:$nsec \n";
[download]

nandeya