#!/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

##</code><code>##

#!/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

##</code><code>##

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

my $tz = new Date::Manip::TZ;
say UnixDate(DateCalc(
		 ParseDate('today'),
		 $_ . " days later") , '%A') for (1..7);

__END__

$ perl test.pl
Friday
Saturday
Sunday
Monday
Tuesday
Wednesday
Thursday

##</code><code>##

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

my $tz = new Date::Manip::TZ;
say UnixDate(DateCalc(
		 ParseDate('today'),
		 $_ . " business days") , '%A') for (1..7);

__END__

$ perl test.pl
Friday
Monday
Tuesday
Wednesday
Thursday
Friday
Monday