#!/usr/bin/perl
use strict;
use Date::Calendar;
my $date_1 = [2003,9,24];
my $date_2 = [2003,10,9];
my $flag_1 = '1';
my $flag_2 = '0';


my $calendar = Date::Calendar->new({});
my $days = $calendar->delta_workdays($date_1,$date_2,$flag_1,$flag_2);
print "$days\n";