#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = tkinit;
my $label = $mw->Label(-text => 'HAllo')->pack();
$label->bind('<Button-1>',[\&subr,$label]);

MainLoop;

sub subr{
  my ($self) = @_;
  $self->configure(-text => 'Hallo Welt');
}