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

my &#36counter = 0;
my &#36var = "Du hast schon &#36counter Mal den Button geklickt.";

my &#36windows = MainWindow->new;
my &#36label = &#36windows->Label(
               
             -textvariabl
e => \&#36var,
               
            );
my &#36button = &#36windows->Button(
               
               
-text => "Hier klicken",
               
               
-command => sub { ++&#36counter }
               
              );
&#36label->pack();
&#36button->pack();
MainLoop;