my $workbook  = Spreadsheet::WriteExcel->new(\*STDOUT);