sub Programm_Ausfuehren { 
     my $proggi = $laden_entry->get();            # Eintrag holen (Name des auszuführenden PERL Programmes).
     if(!$proggi){return 1;}                      # Keine Aktion wenn KEIN Program angegeben wurde.
     $protokoll->insert('end', qx($^X $proggi));  # qx führt Programm aus und fängt Ausgabe ab.
                                                  # Mit $protokoll->insert('end', "ewrt"); wird das
                                                  # ganze gleich in dein Protokollfenster gesendet.
}