$self_ph->{GDBSERVERTHREAD} = threads::async{
          $gdbserver_path :6000 $Exe_path 1> NUL 2> NUL` ;
          threads->exit();
    };
$self_ph->{IN_QUEUE} = new Thread::Queue;