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