){
@array = split(/,/, $record);
if($colHeader < 2){ #Print the column header.
print "| $array[0] | ";
print "$array[1] | ";
print "$array[2] | ";
print "$array[3] | ";
print "$array[4] | ";
print "$array[5] | ";
print "$array[6] | ";
print "$array[7] | ";
print "
";
$colHeader = $colHeader + 1;
} else {
@Month = split(/-/, $array[3]);
#print "$Month[0]
$Month[1]
$Month[2]";
if($fromMonth eq $toMonth){
if($Month[0] >= $fromDay && $Month[1] eq $fromMonth && $Month[2] eq $fromYear){
print "
| $array[0] | ";
print "$array[1] | ";
print "$array[2] | ";
print "$array[3] | ";
print "$array[4] | ";
print "$array[5] | ";
print "$array[6] | ";
print "$array[7] | ";
print "
";
}
}
elsif($fromMonth ne $toMonth){
if($Month[0] >= $fromDay && $Month[1] eq $fromMonth && $Month[2] eq $fromYear){
print "| $array[0] | ";
print "$array[1] | ";
print "$array[2] | ";
print "$array[3] | ";
print "$array[4] | ";
print "$array[5] | ";
print "$array[6] | ";
print "$array[7] | ";
print "
";
}
if($Month[0] <= $toDay && $Month[1] eq $toMonth && $Month[2] eq $toYear){
print "| $array[0] | ";
print "$array[1] | ";
print "$array[2] | ";
print "$array[3] | ";
print "$array[4] | ";
print "$array[5] | ";
print "$array[6] | ";
print "$array[7] | ";
print "
";
}
}
$colHeader = $colHeader + 1;
break; #Since there is only one matched record then once it is found, quit.
} #End of IF-statement
} #end of FOR-loop
print "