#! /usr/local/bin/perl -w
use strict;
use Time::Local;

my ($sec,$min,$hour,$mday,$mon,$year) = 
      (0,0,0,22,11,2001);
my $daysFromNow = 99;
$year-=1900; $mon-=1; $daysFromNow*=86400;
my $givenTime = 
     timelocal($sec,$min,$hour,$mday,$mon,$year);
$givenTime+=$daysFromNow;
($sec,$min,$hour,$mday,$mon,$year) = 
     localtime($givenTime);
$year+=1900;$mon+=1;
print "$year-$mon-$mday $hour:$min:$sec\n";