#!/usr/bin/perl -w
use strict;
use Tk;
my $foo = 500;
my $mw = MainWindow->new;
my $tes = $mw->Label(-textvariable => \$foo);
$tes->pack;
$mw->repeat(3000,sub{$foo++});
MainLoop();
__END__