my $path = 'D:\My_Workspace\Abteilungen\IT\twehrle\trunk\Scripte\RCD\Batch\Perl\PC_Refresh\Purchase_PC_Excel_Ergebnis.xls';
my $parser   = Spreadsheet::ParseExcel::SaveParser->new();
my $template = $parser->Parse($path);

my $workbook = $parser->parse($path);
my $worksheet_PingOK = $template->worksheet('Computer Purchase');
my $worksheet_PingFailed = $template->worksheet('Ping_Failed');


my $format = $workbook->add_format(align =>'center');
...
...
$worksheet_PingOK->AddCell($row_PingOK_New, $col, $Hersteller, $format);