#! /usr/bin/perl

use Tk;

$bool = 1;

my $window = MainWindow->new();
my $button = $window->Button(-text => 'Drück mich');
$button->bind("<ButtonPress-1>",sub{while($bool){print "Hello";}});
$button->pack();

MainLoop;