I can't replicate this bug. I tried the following program on Win98 with perl5.005 and on Linux with a variety of perls. In all cases it produced 100 files. Could you try it on your system?

    #!/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++;
    }
[download]

Perhaps you could send me a more detailed bug report with your OS, version of perl, version of Spreadsheet::WriteExcel and the program that is causing the problems (or the smallest possible program that demonstrates this behaviour).

--
John.