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

my $filename = "c:\\clients\\xxx\\test.xls";

my $xl = Win32::OLE->GetActiveObject('Excel.Application') 
    || Win32::OLE->new('Excel.Application', 'Quit');
$xl->{Visible} = 1;
my $book = $xl->Workbooks->Open( $filename );
my $sheet = $book->Worksheets("Sheet1");
$sheet->Range('a1:c35')->Select;

$sheet->Selection->Delete({ Shift=> xlLeft});   # line 21