#!/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);
}