#!/usr/bin/perl -w
use strict;
use Tk;

my &#36counter;
my &#36myvar = "Du hast den Button schon 0 mal gedrückt.";
my &#36win = MainWindow->new;
my &#36text = &#36win->Label(-textvariable => \&#36myvar);
my &#36button = &#36win->Button(
               
           -text => "Klicke hier",
               
           -command => sub {
               
               
++&#36counter;
               
               
&#36myvar = "Du hast den Button schon &#36counter mal gedrückt.";
               
           }
               
          );
&#36text->pack();
&#36button->pack();
MainLoop;