## SEND THE QUERY FOR THE CONFIG
$message = qq~
<?xml version="1.0" encoding="UTF-8"?>
<rpc xmlns="urn:ietf:params:xml:ns:netconf:base:1.0" message-id="1">
    <get-config><source><running/></source></get-config>
</rpc>
]]>]]>~;
print $out $message;
close $out;

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