Select Code to Download

$SIG{INT} = sub {
   open my $fh, ">PleaseStop" or warn "open(PleaseStop): $!";
}

my $outcome = qx/java MyClass param1 param2 param3 ... /;

# When it's time to call... call call_command
sub call_command {
...
   waitpid $pid, 0;
   return $outcome;
}