C:\Old_Data\perlp>corelist Time::Piece

Time::Piece was first released with perl v5.9.5

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Time::Piece;

my $dt = 'Jan 1, 2000 12:00:00';
my $fmt = '%b %d, %Y %H:%M:%S';

my $epoch = Time::Piece->strptime($dt, $fmt);

$epoch += 86400*5;

#print localtime($epoch)->strftime($fmt);
print $epoch->strftime($fmt);