#!/usr/bin/perl

use warnings;
use strict;
use threads;
use threads::shared;

my $var : shared = 0;

my $th_inc = threads->new( \&kind );

sub kind {
    $var++;
    return 0;
}

while(!$var) {
  print "var: $var\n";
}

print "var: $var\n";