#!/usr/bin/perl

use warnings;
use strict;
use Win32::OLE::Const 'Microsoft Excel';

my $xlsDatei = 'c:/temp/test.xls';

my $excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
my $book  = $excel->Workbooks->Open("$xlsDatei");
my $sheet = $book->Worksheets("Tabelle3")->Delete;

$book->Close;
$excel->Quit();