sub Programm_Ausfuehren {
        my $proggi = $laden_entry->get(); #Eintrag holen
        if(!$proggi){return 1;}            # Nix machen wenn kein Program angegeben
        $protokoll->insert('end', qx(perl.exe $proggi));
}