use strict;
use warnings;
use Date::Calendar::Profiles qw( $Profiles );
use Date::Calendar;

my $cal = Date::Calendar->new( $Profiles->{'US-AZ'} );
print "Number of work days between 5 Apr 13 and 8 Apr 13:";
print $cal->delta_workdays( 2013, 4, 5,
			    2013, 4, 8,
			    0, 0 );