#!/usr/bin/perl

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

my $filename = 'test.xls'; 
$filename = Win32::GetFullPathName( $filename );
my $excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');  
my $workbook = $excel->Workbooks->Open($filename);
my $sheet = $workbook->worksheets(1) || die("$@$!");
$sheet->Range("A1")->{Value} = "B";

$excel->Save();

$excel->Quit();

print "Fertig.\n";

1;