#!/usr/bin/perl -wl

    use strict;
    use Spreadsheet::WriteExcel;

    my $filename = 'test001';

    $|++;

    for (1..100) {

        my $workbook  = Spreadsheet::WriteExcel->new($filename . '.xls');
        my $worksheet = $workbook->addworksheet();

        $worksheet->write(0, 0,  "Hi Excel!");
        $workbook->close();

        print "Writing file : ", $filename++;
    }