#!/usr/bin/perl -w
use strict;
use Tk 8;
use vars qw/ $VARIABBBBBBB $TIMER /;

my $MWin = new Tk::MainWindow(-background=>'green',
                              -width=>400,
                              -height=>400
                             ,);


$MWin->Label(-textvariable => \$VARIABBBBBBB,
                  -relief => 'flat',
                  ,)->pack();


    $MWin->Button(-text => "BUTT On",
                                   -relief => 'groove',
                                   -borderwidth => 2,
                                   -padx => 3,
                                   -pady => 3,
                                   -command => \&ffffffff,
                                  ,)->pack();

&MainLoop();


sub ffffffff
{
    $TIMER->cancel() if $TIMER;
    $VARIABBBBBBB = 0;
    $TIMER = $MWin->repeat(100, sub { $VARIABBBBBBB++});
}