use strict;
use warnings;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;

my $xls_file = "./kaese.xls";
my $max_zeile_zusammenfassung = 0;
my $workbook;
my $ws_zusammenfassung;

#Wenn die Datei noch nicht existiert, wird sie hier angelegt
if ( !-f $xls_file ) {
  $workbook           = Spreadsheet::WriteExcel->new($xls_file);
  $ws_zusammenfassung = $workbook->add_worksheet('Zusammenfassung');
  $ws_zusammenfassung->set_column( 'A:A', 45 );
  $ws_zusammenfassung->set_column( 'B:B', 90 );
  $workbook->close() or die "Error closing file: $!";
}
undef $workbook;
undef $ws_zusammenfassung;

$workbook = new Spreadsheet::ParseExcel::SaveParser->Parse($xls_file);
$ws_zusammenfassung = $workbook->worksheet('Zusammenfassung');
$ws_zusammenfassung->set_column( 'A:A', 10 );
$workbook->SaveAs($xls_file);