...

## PRINT THE RESULTS
while (<$in>)
{
        print;
        last if $_ =~ m/\/nf:rpc-reply/;
};
close $in;
close $out;
waitpid($pid, 0);
exit;