Select Code to Download

use IPC::Open2 qw( open2 );
use IPC::Open3 qw( open3 );
...
my $kid = 
  open(FH1, "exec java -classpath $PATH TextEntry 2> /dev/null");