• Pascal

var
  P: TProcess;
begin
  ...
  P.Execute;
  if not P.WaitOnExit(5000) then P.Terminate(0);
end.

• Elixir

def main(p) do
  p
  |> Task.async()
  |> Task.await()
end

• Go

ctx, cancel := context.WithTimeout(context.Background(), 5*time.Second)
defer cancel()
p(ctx)

• Java

Thread p = new Thread(() -> {});
p.start();
p.join(5_000);
p.interrupt();

• Perl

my $p = Coro->new( sub { ... } );
$p->ready;

my $start = time;
for (1..100) {
    cede;
    if ( (time - $start) > 5 ) {
        $p->cancel;        
        last;
    }
}

• Ruby

Timeout::timeout(5) { p }

• Rust

timeout(Duration::from_secs(5), p()).await;