use IO::Select;
  use IO::Socket;
  use IO::Handle;
  use IPC::Open3;

##</code><code>##

  $Pin  = new IO::Handle;       $Pin->fdopen(10, "w");
  $Pout = new IO::Handle;       $Pout->fdopen(11, "r");
  $Perr = new IO::Handle;       $Perr->fdopen(12, "r");
  $Proc = open3($Pin, $Pout, $Perr, $cmdline);

##</code><code>##

  $select->add($Pin);
  $select->add($Pout);
  $select->add($Perr);