sub backticks {
  open(my $pipe, '-|', @_)
     or return;
  local $/ = wantarray ? $/ : undef;
  <$pipe>
}

my $java_output = backticks('java', '--classpath=...', ...);