while(true) {

 

my($dia,$mes,$anio,$hora,$minutos,$segundos) = agarrate_la_hora();

 

unless($dia eq "25" and $mes eq "12") {

Solo los usuarios pueden ver los links. Registrate o Ingresar STDOUT,"<ul class="bbc_list"><li type="square"> Fecha y hora : $dia/$mes/$anio $hora:$minutos:$segundos \r";[/li][/list]

} else {

Solo los usuarios pueden ver los links. Registrate o Ingresar STDOUT,"\n\n</li><li type="square"> Feliz navidad !";[/li][/list]

Solo los usuarios pueden ver los links. Registrate o Ingresar(1);

 

 

sub agarrate_la_hora {

 

my ($a,$b,$c,$d,$e,$f,$g,$h,$i) = Solo los usuarios pueden ver los links. Registrate o Ingresar(Solo los usuarios pueden ver los links. Registrate o Ingresar);

 

$f+= 1900;

 

Solo los usuarios pueden ver los links. Registrate o Ingresar($d,$e,$f,$c,$b,$a);