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("./template.xls");
    $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;

my $parser   = Spreadsheet::ParseExcel::SaveParser->new();
my $template = $parser->Parse('./template.xls');

$workbook = $template->SaveAs($xls_file);

# Get the first worksheet (it already exists and doesn't need to be created).
my $worksheet = $workbook->sheets(0);

$worksheet->set_column( 'A:A', 10 );
$worksheet->set_column( 'B:B', 20 );
$worksheet->write( 'B1', 'This column is wider' );