#!/usr/bin/perl
use Date::Calendar;
my $Holiday_File = "/home/otrsvpn/holiday.txt";
open FILE, $Holiday_File or die $!;
my %holiday;
my $holiday_ref = \%holiday;
while (<FILE>)
{
   chomp;
   my ($key, $val) = split /,/;
   $holiday{$key} .= exists $holiday{$key} ? "$val" : $val;
}
$calendar = Date::Calendar->new( $holiday_ref );
$days = $calendar->delta_workdays (2015,10,01,2015,10,30,1,0);
print " \n There are $days days between 01-10-2015 and 30-10-2015 \n";