print $JSWRITE "var foo='bar';\n";
print $JSWRITE "print(foo);\n";
close($JSWRITE);
waitpid($pid, 0);

my @output=<$JSREAD>;
close($JSREAD);

print join ("\n", @output);