#!/usr/bin/perl

use strict;
use warnings;
use DateTime;

# 1st Jan 2000
my $date = DateTime->new(year => 2000, month => 1, day => 1);

# Add a million seconds
$date->add(seconds => 1_000_000);

# See what you get - 2000-01-12T13:46:40
print $date;