Thanks, I added some lines to have an extravagant clock...
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 $dateForma
+t, localtime; });
MainLoop;
__END__
UPDATED: Sorry, I was meaning the DOW "%A" instead of the month "%a". Thanks zentara