Shell Programming and Scripting

use Spreadsheet::WriteExcel;


my $workbook  = Spreadsheet::WriteExcel->new('D:\Documents and Settings\My Documents\file1.xls') || die "could not create $!";

my $worksheet = $workbook->add_worksheet();

$worksheet->write('A1','1st row');
$worksheet->write('A2','2st row');
$worksheet->write('A3','3st row');
$worksheet->write('A4','4st row');
$worksheet->write('B1','1st row');
$worksheet->write('C1','1st row');

$workbook->close() or die "Error closing file: $!";