#!/usr/bin/perl
use warnings;
use strict;
use Date::Manip;

my $far_date = UnixDate(ParseDate("40 years 20 minutes"),"%s");

print "40 years and 20 minutes from now is: ", $far_date,"\n";

print "epoch $far_date seconds translate to: ",
UnixDate(ParseDate("epoch $far_date"),"%m/%d/%Y %H:%M:%S"),"\n";