use strict;
local $| = 1;

use Tk;

use POSIX qw(strftime setlocale LC_ALL LC_CTYPE);

my ($whatsUrLocale)= 'es_AR.ISO8859-1';
my ($dateFormat)   = "%A, %d %b %H:%M:%S %Y";
my ($clockTitle)   = 'TEMPUS FUGIT';

my ($loc) = POSIX::setlocale( &POSIX::LC_ALL, $whatsUrLocale );

## Just in case...

$ENV{LANG} = $whatsUrLocale;

my $mw = new MainWindow;

$mw->title($clockTitle);

$mw->fontCreate('mini',
   -family=>'Arial',
#  -weight=>'bold',
  -size=>int(-11*11/6));
  
$mw->fontCreate('big',
   -family=>'Arial',
  -weight=>'bold',
  -size=>int(-24*24/14));

my $ctime = ' '. time ;
my $horeja= strftime $dateFormat, localtime;

my $hor = $mw->Label(
            -background => 'lightblue',
            -foreground => 'darkblue',
            -font =>'mini',
            -textvariable=> \$horeja )->pack();

my $lab = $mw->Label(
            -background => 'lightgreen',
            -foreground => 'orange',
            -font =>'big',
            -textvariable=> \$ctime)->pack();

$mw->repeat(500, sub{ $ctime = ' '. time; $horeja= strftime $dateFormat, localtime; });

MainLoop;
__END__