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