[Rio-pm] [off-topic] boas festas!
Breno G. de Oliveira
breno em clavis.com.br
Sábado Dezembro 24 15:33:32 PST 2005
É isso aí pessoal, divirtam-se bastante nesse fim de ano e tomara que
2006 seja cheio de prosperidade, felicidade, saúde e muito Perl ;)
Acho que agora só volto a ler emails ano que vêm hehehehhe
Um forte abraço a todos!
breno
----------------8<--------------
package Fim_de_Ano;
require Amigos;
require Familia;
use Comida qw(rabanada, cereja, peru_de_natal, ... );
use constant PAZ => 1;
our $dinheiro++;
our $saude++;
our $felicidade++;
our $tristeza--;
if( localtime eq 'Sun Dec 25 00:00:00 2005')
{
require Papai_Noel;
require Presentes;
print 'Feliz Natal!!!';
}
if( localtime eq 'Su Jan 01 00:00:00 2006')
{
require fogos_de_artificio;
require champagne;
use camisinha;
print 'Feliz Ano Novo!!!';
if($cidade eq 'Rio') {
goto $copacabana or $lagoa;
}
else {
goto $FESTA;
}
}
use Perl;
PAZ;
----------------8<--------------
Mais detalhes sobre a lista de discussão Rio-pm