CMD:
    while($exit eq FALSE) {                  # We´re as long in the loop until no exitflag
      print "> "; $line = <STDIN>;           # read input from stdin
      chop $line; goto CMD if(!$line);       # chop CR and if input was empty.. REDO
      ($key,@param) = split ' ', $line;      # split key and parameters

      $exit = &cmd_select($key,@param);
    }