open($javain, "java ... |") or die "....";
while (<$javain>) {
  #receive the output
}
close($javain);
#
# or
#
open($javaout, "| java ...") or die "....";
foreach (@inputline) {
  print $javaout $_;
  #send some input
}
close($$javaout);