#!/usr/bin/perl

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

my $xlsFile = "c:\\lokale_daten\\test.xls";

my $excel    = Win32::OLE->new('Excel.Application','Quit') or die $!;
my $workbook = $excel->Workbooks->Open($xlsFile);
my $sheet    = $workbook->Worksheets(1);

$sheet->Range("A1")->{Value} = "B";

$excel->Save();

$excel->Quit();

print "Fertig.\n";

1;