# LOG Ausgabe
sub toolLog {
    my $param = shift;

    print $param;
    # gebe Log in GUI aus, wenn verfügbar
    $out_text->insert('end', $param)     if defined $out_text;
}