my $NODEREC = " <XML REQUEST RECORD GOES HERE> "

my $sok = IO::Socket::INET->new(PeerAddr => $WYSHOST,
                                 PeerPort => $WYSPORT,
                                 Proto => "tcp")
or die "couldn't connect to WysDM host $WYSHOST : $!\n";

#$sok->autoflush(1);
$| = 1;

my $parser = XML::LibXML->new;

##</code><code>##

print $sok "$NODEREC\n";
while ($line = <$sok>){
   print "reading line\n";
   chomp($line);
   push(@output, $line);
}

##</code><code>##

syswrite $sok, $NODEREC;
syswrite $sok, "\n";
my $blksize = (stat $sok)[11] || 16384;
my $len = sysread $sok, $res, $blksize;
my $ds = $parser->parse_string("$res");