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