#!/usr/bin/perl 
use warnings;
use strict;

use Tk;



my $mw =  new MainWindow;
my $label = $mw -> Label(-textvariable =>\&timer);
$label -> grid(-row=>1,-column=>1);

$mw->repeat(1000,\&timer);


MainLoop;

sub timer{
	my $time = time();
}