sub UplRun {

  my $popup = $mw->Toplevel();
     $popup->Label(-text => 'Upload in Arbeit')->pack();
  
  #cw: Ueberpruefen der Parameter auf Vollständigkeit
  if (($cmbSWprod eq "") || ($cmbWSname eq "") || ($sysKnoten eq "")){
    $msgTxt = "*** Bitte Angaben vervollständigen ***";
    return;
  }
  
  #cw: Prüfen auf Existenz eines PCMSFiles, sonst Abbruch vor Upload
  if(!-e $pcmsfile){
    $msgTxt = "*** Kein PCMSFile gefunden ***";
    return;
  }

  #cw: Starten des Uploads
  $cmd = "upload -r -U $loeschen -W \"LBBW:$cmbWSname\" -l \"$logFile\" -C \"$sysKnoten\" -f \"$pcmsfile\"";
  system ($cmd);

}#UplRun