jaja, es función si que está bien rara, seguramente tu servidor al encontrarla genera un error y por alguna razón desconocida no puede escribir el mensaje de error en el errorlog, checkea que el archivo se encuentre bien...
ahora, para la hora es más fácil de lo que pensás !!!
Código:
my $hora = &get_hora();
sub get_hora {
my ($sec,$min,$hora,$mdia,$mon,$ano,$wdia,$ydia,$isdst,$hora);
($sec,$min,$hora,$mdia,$mon,$ano,$wdia,$ydia,$isdst) = localtime (time);
$hora = "$hora:$min:$sec";
return $hora;
}
Saludos