Select Code to Download

# starting the application
my $handle = start \@args, \$in, \$out, \$err;

my ($in, $out, $err);
for($in,$out,$err) { $_ = \my $x }
...
$client_descr->{"In"}     = $in;
$client_descr->{"Out"}    = $out;
$client_descr->{"Err"}    = $err;

$in .= "new data\n";
pump $handle until $$out =~ /data arrived:/; # note the dereferencing 
+- $$out
print $$out;

$client_descr->{"Handle"} = $handle;
$client_descr->{"In"}     = \$in;
...
$in .= "new data\n";
pump $handle until $$out =~ /data arrived:/; # note the dereferencing 
+- $$out
print $$out;