#!/usr/bin/perl

my($JAVA_CLASSPATH) = @ARGV;

$LAUNCH_JAVA = $JAVA_CLASSPATH."/launch_java.sh";

open(FH, "$LAUNCH_JAVA $JAVA_CLASSPATH |")
    or die "Couldn't launch 'launch_java.sh': $! / $?";
    
my $kid = <FH>;
$kid =~ s@\n@@;
    
END {
    if ($kid) {
        kill 9 => $kid; # bang
    };
};

print "pid: $kid\n\npress return to exit script...\n\n";

<STDIN>;


##</code><code>##


#/bin/bash

java -classpath $1 TextEntry 2> /dev/null &
echo $!