use Spreadsheet::WriteExcel;

$workbook = Spreadsheet::WriteExcel->new('sample.xls');
$worksheet = $workbook->add_worksheet('ws name');
$worksheet->write(0,0,'something in a1');
$workbook->close();