use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
my $excel    = Win32::OLE->new('Excel.Application','Quit') or die $!;
my $workbook = $excel->Workbooks->Open($xlsFile);
my $sheet    = $workbook->Worksheets(3);]
$sheet->Range("A1")->{Value} = $beispiel_value;
$excel->Save();
$excel->Quit();