use strict;
use warnings;
use Tk;
use threads;

my $cnt = 0;

my $mw = MainWindow->new();

$mw->Button( 	-text => 'print',
				-command => sub { 	my $time = localtime();
									$cnt++;
									threads->new(\&print_bon, $cnt, $time);
								},
				)->pack(-anchor => 'center', -pady => '2');	

MainLoop;				
				
sub print_bon
{
my $cnt = shift;
my $time = shift;
sleep rand(10);
print "Ausdruck $cnt ($time)\n";
}