use strict;
use warnings;
use Win32::OLE;
my $excel = Win32::OLE -> new("Excel.Application");
$excel->{Visible} = 1;
$excel->{DisplayAlerts}=0;
my $oldsheets = $excel->{SheetsInNewWorkbook};
$excel->{SheetsInNewWorkbook} = 5;
my $wb = $excel->Workbooks->Add;
$excel->{SheetsInNewWorkbook} = $oldsheets;
for my $i (1..$wb->Sheets->{Count}) {
    $wb->Sheets($i)->Cells(1, 1)->{Value} = "Sheet $i";
}