use warnings; use strict; use Spreadsheet::WriteExcel; use ExcelUtil; my $wrk_bk = Spreadsheet::WriteExcel->new('sample.xls'); my $wrk_sht = $wrk_bk->add_worksheet('new_sheet'); writeCell( $wrk_sht, 1, $_, "Testing, Row-1, Col-$_" ) for 1..5;