# *****************************************************************************
# ** Sub Run_Perl_Prog ********************************************************
# *****************************************************************************
sub Run_Perl_Prog {
     my $Get_Path      = $laden_entry->get();
     my $Get_File_Name = $Auswahl_Liste->get($Auswahl_Liste->curselection());
     my $slash         = "/";
     print "Ausgewaehlter Pfad: $Get_Path\n";
     print "Der Slash         : $slash\n";
     print "Ausgewaehlte Datei: $Get_File_Name\n";
     print "$Get_Path$slash$Get_File_Name";
     if(!$Get_Path || $Get_Path eq ''){
         $mw->messageBox(-message=>" Zuerst ein Programm auswählen.",
                         -type=>"OK"),
         return 1;
     }
     my $tmp_1 = "$Get_Path$slash$Get_File_Name";
     my $tmp_2 = system(qx($^X $tmp_1));
}