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

my $top = new MainWindow;
my $text = localtime();
my $id = $top->Label(-textvariable => \$text)->pack;
$id->repeat(1000,sub{$text = localtime()});

MainLoop;
__END__