sub Programm_Ausfuehren 
{ 
    my $proggi = $laden_entry->get();           
    if(!$proggi){return 1;}
    my $tmp = qx($^X $proggi);
    $protokoll->insert('end', $tmp);                                          
}