#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::waitVariableX;
my $mw = MainWindow->new();
my $unchanged_var = ' ';
while ()
{
	my $numtime = time ();
    my ($curr_sec, $curr_min, $curr_hour, $curr_mday, $curr_month, $curr_year, $curr_wday, $curr_yday, $curr_isdst) = localtime ($numtime);   
    my $lab1 = $mw->Label (-text => 'time returned: ' . $curr_hour . ':' . $curr_min . ':' . $curr_sec)
    					->form(-left => '%5', -top => '%10');	
    $lab1->update;	
	$mw->waitVariableX (5 * 1000, \$unchanged_var);	# sleep 5 seconds
}	   										
MainLoop;