#!/usr/bin/perl
use warnings;
use strict;
use threads;
use threads::shared;

my $im_alive : shared = 1;

my $thread = async {sleep 10;
                    print "Ok\n";
                    $im_alive = 0;
                    };
my $i = 0;
while (1) {
   $i++;
   print "$i - $thread\n";
    print "im_alive->$im_alive\n";
    if ($im_alive == 0) {last};
         sleep 1;
  };

print "im_alive->$im_alive\n";
print "hit enter to exit\n";
<>;