Interesting. I'd do it this way (golfish):

use Tk;
use strict;
my $mw = new MainWindow -title => 'Time';
(Label $mw -textvariable => \my $t )->pack;
repeat $mw 1000, sub { $t = localtime };
MainLoop;
[download]