[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