use strict;
use warnings;

use threads;
use threads::shared;

my $done = 0;
share $done;

async {
  sleep 10; # tue hier stattdessen etwas sinnvolles
  lock $done;
  $done = 1;
  cond_broadcast $done;
};

sub is_done {
  lock $done;
  cond_timedwait $done, time;
  return $done;
}

while (!is_done) {
  print "Laeuft noch...\n";
  sleep 1;
}