#!/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 $date = DateCalc($dateLocal, "4 days earlier");
my $newDate = UnixDate($date,'%A');
say $newDate;

my $businessDeltaMinus = DateCalc($dateLocal,"-4 business days");
my $workingDateMinus = UnixDate($businessDeltaMinus,'%A');
say $workingDateMinus;

my $businessDeltaPlus = DateCalc($dateLocal,"+4 business days");
my $workingDatePlus = UnixDate($businessDeltaPlus,'%A');
say $workingDatePlus;

__END__

$ perl test.pl
Thursday
Sunday
Friday
Wednesday