use warnings;
use strict;
use threads;

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

sub kind {
    print "hi";
    exit;
}