I think you need to actually change the text in the label. This should make it refresh. I would suggest looking at this. When I did VB applications this is what we had to do so I think it would be the same for Perl. This has not been tested and it is just my weekend ramblings.

#!/usr/bin/perl
use strict;
use Tk;
my $top = new MainWindow;
my $not_stopped = 1;
my $id = "";
while($not_stopped){
   $id = $top->Label(-text =>&gettime);
   sleep(10);
}
[download]

--BigJoe

Learn patience, you must.
Young PerlMonk, craves Not these things.
Use the source Luke.