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