use strict;
use warnings;
use Win32::OLE;

my $xl = Win32::OLE->new('Excel.Application');
$xl->{Visible} = 1;
my $nShtsOld = $xl->{SheetsInNewWorkbook};
$xl->{SheetsInNewWorkbook} = 3;
my $wb = $xl->Workbooks->Add;
$xl->{SheetsInNewWorkbook} = $nShtsOld;

for (my $nSht = 3; 1 < $nSht; $nSht--) {
	$wb->Sheets($nSht)->Delete;
}