tie *XLS,'Apache';
binmode(*XLS);
my $workbook=SpreadSheet::WriteExcel->new(\*XLS);