#!/perl -w

use strict;
use Win32::OLE;
my $path = "C:\\TEST_EXCEL";

my $excel = new Win32::OLE('Excel.Application');

my $workbook = $excel->Workbooks->Open($path."\\Book1.xls");

$workbook->Worksheets->Add();

$workbook->Save();

$excel->Quit();