#!/usr/bin/perl -w

use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;

# Open the template with SaveParser
my $parser   = new Spreadsheet::ParseExcel::SaveParser;
my $finanzen = "/data/DatenLucas/Dokumente/Dokumente/Finanzen/BA_Data.ods";
#my $finanzen = "FinanzenTest.xls";
my $template = $parser->Parse($finanzen);

my $row=0;
my $col=0;
my $sheet=0;

# Get the format from the cell
my $format   = $template->{Worksheet}[$sheet]
                        ->{Cells}[$row][$col]
                        ->{FormatNo};

$template->AddCell(0, $row+1,   $col,   1,     $format);
$template->SaveAs('new.xls');