use Spreadsheet::WriteExcel;  

my $workbook = Spreadsheet::WriteExcel->new("C:/myfile.xls");
$worksheet   = $workbook->add_worksheet();               
$worksheet->write('A1', "Hi Exclel!"); 
$worksheet   = $workbook->add_worksheet();               
$worksheet->write('A1', "Next spreadsheet");