#!/usr/bin/perl

use Spreadsheet::WriteExcel;

my $xls = Spreadsheet::WriteExcel->new('tmp.xls')
or die "Blah: $^E";

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

my $row = [1..5];

for (0..70000) {
  $ws->write_row($_, 0, $row);
}
$xls->close;