#!/usr/bin/perl
use IPC::Open2;
use strict;

my ($JSWRITE, $JSREAD);

my $pid = open2($JSREAD, $JSWRITE, "js");

print $JSWRITE "load('jslint.js');\n";

#INPUT INTO JSLINT
open FILE, '<', "test.js";
while (<FILE>)
{
    print $JSWRITE "$_\n";
}
close(FILE);

#END INPUT

print $JSWRITE "END\n";
close($JSWRITE);
waitpid($pid, 0);

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

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