#!/usr/bin/perl -w
###########################################
# xx -- 
# Mike Schilli, 2005 (m@perlmeister.com)
###########################################
use strict;
use Sysadm::Install qw(:all);

use DateTime;

my $dt = DateTime->new(
  year      => 1990,
  time_zone => 'UTC'
);

$dt->add(seconds => 3600*24*5000);
print "$dt\n";