#!/usr/local/bin/perl -w

use Tk;
use threads;
use strict;

my $mw = MainWindow->new();
my $text = $mw->Entry(-width =>8)->pack();

$text->insert(0,'abcde');

my $button = $mw->Button(-text=>'click', -command => \&test_thread)->pack();

MainLoop;

sub test_thread{
	my $long_thread = threads->create('long_running_sub');
	$long_thread->detach();
}

sub long_running_sub{
	for my $i (0..2){
		sleep 30;
		print $text->get() . "-$i\n";
	}
}