foreach my $Tmp ( sort keys %Files ) {                                   
       my $workbook = Spreadsheet::WriteExcel->new( "Pfad" . "\\" . "tmp-File.xls" ) || die "Error opening ";
       print STDERR "-Generate $Tmp File...\n";
        $workbook->close();
        unlink( "Pfad" . "\\" . "$Tmp-File". ".xls" );
        my $Excel = Win32::OLE->GetActiveObject('Excel.Application')|| Win32::OLE->new( 'Excel.Application', 'Quit' );
        my $workbook2;
        $workbook2 = $Excel->Workbooks->Open("Pfad" . "\\" . "tmp-File.xls" );
        $workbook2->SaveAs("Pfad" . "\\". "$Tmp-File". ".xls" ,xlExcel9795);
        $workbook2->Close;
        unlink( "Pfad" . "\\" . "tmp-File.xls" );
         
     print STDERR ".... finished\n";
    }