[...]
use time::localtime;
[...]
     my $parameterFile = "input/Main.cfg";                                                                                                                                
     open(IN, $parameterFile) || die "Paramterfile $parameterFile nicht gefunden!";  
     my @par = <IN>;                                                                    
     close(IN);                                                                      

     eval( join("\n", @par) );

my $code = 'true';

# Subroutinenaufruf der Prüfroutinen mit Rückgabewert ob Check OK oder NOK

 
     my $ReturnCode1 = &runSqlBackCheck; # start subroutine: runSqlBackCheck
     my $ReturnCode2 = &runOtaCheck; # start subroutine: runOtaCheck
     my $ReturnCode3 = &runSqlTrnCheck; # start subroutine: runSqlTrnCheck       
       
     # Hier muß ich das Ergebnis auswerten
       
     if  ( $ReturnCode1 == 1  &&  $ReturnCode2 == 1 &&  $ReturnCode3 == 1)
       {
         # Gesamtergebnis positiv
            
         print LogDatei  '*' x 130, "\n";
         print LogDatei  '#' x 130, "\n";
         print LogDatei  '#' x 130, "\n";
         print LogDatei  "               Die Z3S  BackupKontrolle war erfolgreich!!!!! \n";
         print LogDatei  '#' x 130, "\n";
       }
      else
       {
         # Gesamtergebnis negativ
         
         print LogDatei  '*' x 130, "\n";
         print LogDatei  '#' x 130, "\n";
         print LogDatei  '#' x 130, "\n";
         print LogDatei  "     Die Z3S  BackupKontrolle war nicht erfolgreich!!!!! \n";
         print LogDatei  '#' x 130, "\n";
         print LogDatei  "Einzelergebnisse:\n";            
            
          if ( $ReturnCode1 == 0)
            {               
               print LogDatei "Existenz aktueller BAK-Files:       NOK\n";
            } 
          else 
            { 
              print LogDatei "Existenz aktueller BAK-Files:        OK\n";
            }
          if ( $ReturnCode2 == 0)
            {               
              print LogDatei "Existenz aktueller OTA-Files:       NOK\n";
            } 
          else 
            { 
              print LogDatei "Existenz aktueller OTA-Files:        OK\n";
            }
          if ( $ReturnCode3 == 0)
            {               
              print LogDatei "Existenz aktueller Transactionlog:  NOK\n";
            } 
          else 
            { 
              print LogDatei "Existenz aktueller Transactionlog:   OK\n";
              print LogDatei  '#' x 130, "\n";
              print LogDatei  '#' x 130, "\n";
            }

         }