$kid = open (FH, "java JavaApp & |");
print $kid;