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

say "PARSING A DATE:";
my $date;
say $date = ParseDate("today");
say $date = ParseDate("1st Thursday in June 1992");
say $date = ParseDate("05/10/93");
say $date = ParseDate("12:30 Dec 12th 1880");
say $date = ParseDate("8:00pm December tenth");
say "";

say "PARSING AN AMOUNT OF TIME:";
my $delta;
say $delta = ParseDateDelta("in 12 hours");
say $delta = ParseDateDelta("-1:30:0");
say $delta = ParseDateDelta("4 business days later");

__END__

$ perl test.pl
PARSING A DATE:
2017091300:00:00
1992060400:00:00
1993051000:00:00
1880121212:30:00
2017121020:00:00

PARSING AN AMOUNT OF TIME:
0:0:0:0:12:0:0
0:0:0:0:-1:30:0
0:0:0:4:0:0:0