#!/usr/local/bin/perl -w

use diagnostics;
use strict;

use Date::Calc qw(:all);
use Date::Calendar;
use Date::Calendar::Profiles qw( $Profiles );

my $cal = Date::Calendar->new( $Profiles->{'DE-NW'} ); # or wherever you are


my @today = Today();

my @date = Add_Delta_YM($today[0],$today[1],1, 0,1); # first of next month

my $date = $cal->add_delta_workdays(@date,-5); # 5 business days before that
#my $date = $cal->add_delta_workdays(@date,-5); # 5 business days before that

$date->date_format(2);

print "date = $date\n";
print "today = @today\n";