#!/usr/bin/perl
#############################
# Name: Clock-Tk.pl
# Desc: Display Tk clock.
#############################
use strict;
use warnings;
use Tk;

my ($n,$mw);
my $mw_width  = 420;
my $mw_height = 40;
my $mw_left   = 2570;
my $mw_top    = 20;

$mw = MainWindow->new();
$mw->geometry("${mw_width}x${mw_height}+${mw_left}+${mw_top}");
$mw->bind('<Escape>' => sub {exit;});
$mw->optionAdd('*font','Courier 20 bold');
$mw->Label(-textvariable=>\$n,-background=>'lavender')->pack;
$mw->repeat(100,sub{$n=scalar localtime time});
MainLoop();