#!/usr/bin/perl

my($JAVA_CLASSPATH) = @ARGV;

my $kid = open(my $fh, "java -classpath $JAVA_CLASSPATH TextEntry 2> /dev/null |")
    or die "Couldn't launch 'launch_java.sh': $! / $?";
    
END {
    if ($kid) {
        kill 9 => $kid; # bang
    };
};

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

<STDIN>;