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

my $dateInTwoWeeks = ParseDate("Friday in 2 weeks");
my $unixDate1 = UnixDate($dateInTwoWeeks,"%d-%m-%y");
say $unixDate1;

my $dateTwoWeeksAgo = ParseDate("Friday 2 weeks ago");
my $unixDate2 = UnixDate($dateTwoWeeksAgo,"%d-%m-%y");
say $unixDate2;

my $dateNextFriday = ParseDate("next Friday");
my $unixDate3 = UnixDate($dateNextFriday,"%d-%m-%y");
say $unixDate3;

__END__

$ perl test.pl
09-02-18
12-01-18
02-02-18