#!/usr/bin/perl

use Tk;
use threads;
use threads::shared;
 
my %hash = ();

share(%hash);
 
my $t = threads->new(\&kind);

$hash{main} = MainWindow->new();

$hash{hm} = "test";

sub kind { 
    return 0;

}

sleep(3);