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.
}

#!/usr/bin/perl
print "Zeile 1: Diesen Text am Bildschirm ausgeben\n";
print "Zeile 2: Diesen Text am Bildschirm ausgeben\n";
print "Zeile 3: Diesen Text am Bildschirm ausgeben\n";
print "Zeile 4: Diesen Text am Bildschirm ausgeben\n";
print "Zeile 5: Diesen Text am Bildschirm ausgeben\n";