Naja, Muffi's Pseudocode stellt doch eine recht gute Lösung dar.

Muss man nur vom Pseudocode auf Perl-Code umstellen.
DateTime liefert alles benötigte mit; und ob es ein Geschäftstag ist, kann man z.B. mittels der Methode wday() ermitteln...