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

my $tz = new Date::Manip::TZ;
my $dateLocal = ParseDate('now');

my $unixLocal = UnixDate($dateLocal,'%A');
say $unixLocal;

my $delta = ParseDateDelta("4 days later");

my $date = DateCalc($dateLocal, $delta);

my $newDate = UnixDate($date,'%A');
say $newDate;

__END__

$ perl test.pl
Thursday
Monday