demo5.pl

use v5.14;
use Spreadsheet::WriteExcel;

# Create the work book
my $workbook = Spreadsheet::WriteExcel->new('writer1.xls');

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

for my $row ( 1..10 ) {
    for my $col ( 1..10 ) {
        $ws->write( $row - 1, $col - 1, $row * $col );
    }
}