my $excel = Win32::OLE->new('Excel.Application');
my $workbook = $excel->Open("filenamehere.xls");
$workbook->Sheets[0]->{Name} = "New Sheet Name";
$workbook->Save();
$excel->Quit();