...
use EBL::ebl_monitoring;                           # Sonderfunktionen für EBL-Einsatz
use EBL::ebl_reporting;                            # Reportingfunktion
use File::Copy qw(copy);

# main-parameters
my %config=(
  "logstatus"=>1,                                  # soll Protokoll geschrieben werden
  "shellstatus"=>1,                                # zusätzliche Protokollausgabe Shell
  "active"=>0,                                     # damit wird die Funktion (Kopiervorgang und Server stop / start scharf geschaltet)
  "logfilename"=>'DWG2AIMS.log',                   # Dateiname für die Scriptausführung
  "folder_source"=>'',                             # Quelle der DWG-Dateien
);

# Reportsteuerung
my $log=EBL::ebl_reporting->open($config{logfile_name});
$log->log($config{logstatus});
$log->shell($config{shellstatus});

$log->write("Starten eines MapEdit-Update (AIMS-Server)");
...