Agenda en perl???

[kidd]

Hola monoswim:

Intena con este código:

Código:

#!/usr/bin/perl -w 

use strict; 
use CGI::Carp qw(fatalsToBrowser); 
use Time::Local; 

#Fecha de la cual deseas sacar el día 
my ($anio, $mes, $dia) = qw(2002 01 28); 

my $gmtime = timegm(0,0,0,$dia,$mes-1,$anio-1900); 
my @gmtime = gmtime($gmtime); #regresarlo 

my @dias_semana = ('Domingo','Lunes','Martes','Miércoles','Jueves', 
                     'Viernes','Sábado','Domingo'); 


my $dia = $dias_semana[$gmtime[6]]; #Tomar el día 

#Resultado 
print "El día de la semana es $dia\n";

SALUDOS