#!/usr/bin/perl
use warnings;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
my $workbook;
my @s;
$Month=Sept;


sub create_excel {

$workbook = Spreadsheet::WriteExcel->new('FAISTATS_'."$Month".'.xls');
for ( $i=1;$i<=8;$i++)
{
$s[$i] = $workbook->add_worksheet( "cpzea0".$i."a0001" ) ;
}
$s[9] = $workbook->add_worksheet( "WEEKLY" ) ;
$s[10] = $workbook->add_worksheet( "MONTHLY" ) ;
}
create_excel();