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;