use IO::Handle;<br>
my ($wrt, $rdr) = (IO::Handle->new(), IO::Handle->new());
my $procid = open2($wrt, $rdr, $server_command_line);


##</code><code>##

while (1) {
  if (there_is_something_to_read($rdr)) {
    $reply = get_everything_from_the_pipe($rdr);
    last;
  }
}