view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

#!/usr/local/bin/perl

use Time::Business;
use HTTP::Date;


my $bustime = Time::Business->new({
	STARTTIME=>"9:00",
	ENDTIME=>"17:00",
	WORKDAYS=>[1,2,3,4,5]
});