#!/usr/bin/perl

use strict;
use threads; 
use Tk;

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


sub kind {
    #
}
$th_inc->join();