use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new("perl.xls");$worksheet   = $workbook->add_worksheet();$worksheet->write('A1', "Hi Excel!");
"