<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-SIZE: 10pt; FONT-FAMILY: 'Verdana'; COLOR: #000000">
<DIV>Gente uma pequena pergunta.</DIV>
<DIV> </DIV>
<DIV>Eu achei realmente fantastico a nova versão do perl, principalmente pela
parte de assinatura de funções... isso eu sempre achei falta no perl. Mas vendo
os graficos e o teste do Renato, fica a dúvida.</DIV>
<DIV> </DIV>
<DIV>Vale a pena atualizar agora visto que “EU” ainda não vi possiveis problemas
que podem surgir com os códigos já em produçao, e passar por um trabalho e risco
por ganho de micro segundos, pode não vir a ser agora uma boa ideia. Visto que
hoje meu gargalo esta na conexão e não no processamento.</DIV>
<DIV> </DIV>
<DIV>Alguem tem alguma informação sobre possiveis problemas de incompatibilidade
que possam existir entre as versoes 5.16 e a 5.20. Pergunto isso por
experiencia, pois quando atualizei o módulo json tive um trabalho danado.</DIV>
<DIV> </DIV>
<DIV>Valeu.</DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=renato.cron@gmail.com
href="mailto:renato.cron@gmail.com">Renato Santos</A> </DIV>
<DIV><B>Sent:</B> Friday, May 30, 2014 2:18 AM</DIV>
<DIV><B>To:</B> <A title=brasil-pm@pm.org href="mailto:brasil-pm@pm.org">Perl
Mongers do Brasil, uni-vos!</A> </DIV>
<DIV><B>Subject:</B> Re: [Brasil-PM] Perl 5.20.0 Lançado! \o/</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style='FONT-SIZE: small; TEXT-DECORATION: none; FONT-FAMILY: "Calibri"; FONT-WEIGHT: normal; COLOR: #000000; FONT-STYLE: normal; DISPLAY: inline'>
<DIV dir=ltr>Pessoas,
<DIV> </DIV>
<DIV>depois de fazer alguns testes utilizando o programa ab para medir o tempo
de resposta médio de alguns endpoints,</DIV>
<DIV>e tambem de observar a CPU utilizada no final do 'forkprove' em alguns
projetos, rodando no perl 5.20 e depois no 5.16, eu observei pouca, mas
existente, perda de velocidade.</DIV>
<DIV>Fiquei com isso na cabeça, pois todo mundo dizendo que está mais rápido, e
não consegui ver isso na pratica. então, fui fazer um teste separado, sem todo o
ambiente do catalyst, pois como há muitos modulos, alguns do meu 5.16 poderiam
estar desatualizados em relação ao 5.20.</DIV>
<DIV> </DIV>
<DIV>pois bem,</DIV>
<DIV>fiz o seguinte script:</DIV>
<DIV> </DIV>
<DIV>
<DIV><FONT face="courier new, monospace">use 5.14.2;</FONT></DIV>
<DIV><FONT face="courier new, monospace">use warnings;</FONT></DIV>
<DIV><FONT face="courier new, monospace">use Dumbbench;</FONT></DIV>
<DIV><FONT face="courier new, monospace">use
Dumbbench::CPUFrequencyPinner;</FONT></DIV>
<DIV><FONT face="courier new, monospace">use Dumbbench::BoxPlot;</FONT></DIV>
<DIV><FONT face="courier new, monospace">require
Dumbbench::BoxPlot;</FONT></DIV>
<DIV><FONT face="courier new, monospace"><BR></FONT></DIV>
<DIV><FONT face="courier new, monospace">my $opt =
'/home/renato/perl5/perlbrew/perls/perl-5.16.2/bin/perl';</FONT></DIV>
<DIV><FONT face="courier new, monospace">my $unopt =
'/home/renato/perl5/perlbrew/perls/perl-5.20.0/bin/perl';</FONT></DIV>
<DIV><FONT face="courier new, monospace"><BR></FONT></DIV>
<DIV><FONT face="courier new, monospace">my $code = <<'HERE';</FONT></DIV>
<DIV><FONT face="courier new, monospace">my %a;</FONT></DIV>
<DIV><FONT face="courier new, monospace">$a{rand(2)}++ for
1..100000;</FONT></DIV>
<DIV><FONT face="courier new, monospace">foreach my $x (keys %a){</FONT></DIV>
<DIV><FONT face="courier new, monospace"> $a{$x} = $a{$x} *
-1;</FONT></DIV>
<DIV><FONT face="courier new, monospace">}</FONT></DIV>
<DIV><FONT face="courier new, monospace">foreach my $x (reverse keys
%a){</FONT></DIV>
<DIV><FONT face="courier new, monospace"> delete
$a{$x};</FONT></DIV>
<DIV><FONT face="courier new, monospace">}</FONT></DIV>
<DIV><FONT face="courier new, monospace">HERE</FONT></DIV>
<DIV><FONT face="courier new, monospace"><BR></FONT></DIV>
<DIV><FONT face="courier new, monospace">my $db =
Dumbbench->new(</FONT></DIV>
<DIV><FONT face="courier new, monospace"> target_rel_precision =>
0.005,</FONT></DIV>
<DIV><FONT face="courier new, monospace">
initial_runs =>
20,</FONT></DIV>
<DIV><FONT face="courier new, monospace">);</FONT></DIV>
<DIV><FONT face="courier new, monospace"><BR></FONT></DIV>
<DIV><FONT face="courier new, monospace">$db->add_instances(</FONT></DIV>
<DIV><FONT face="courier new, monospace">
Dumbbench::Instance::Cmd->new(command => [$unopt, '-e',
$code],</FONT></DIV>
<DIV><FONT
face="courier new, monospace">
name => "5.20"),</FONT></DIV>
<DIV><FONT face="courier new, monospace">
Dumbbench::Instance::Cmd->new(command => [$opt, '-e', $code],</FONT></DIV>
<DIV><FONT
face="courier new, monospace">
name => "5.16"),</FONT></DIV>
<DIV><FONT face="courier new, monospace">);</FONT></DIV>
<DIV><FONT face="courier new, monospace"><BR></FONT></DIV>
<DIV><FONT face="courier new, monospace">SCOPE: {</FONT></DIV>
<DIV><FONT face="courier new, monospace"> # Pin CPU frequency down to
reduce variability</FONT></DIV>
<DIV><FONT face="courier new, monospace"> my $p =
Dumbbench::CPUFrequencyPinner->new;</FONT></DIV>
<DIV><FONT face="courier new, monospace"> $SIG{INT} = sub {undef $p;
exit;};</FONT></DIV>
<DIV><FONT face="courier new, monospace">
$p->set_max_frequencies($p->min_frequencies->[0]);</FONT></DIV>
<DIV><FONT face="courier new, monospace"> $db->run;</FONT></DIV>
<DIV><FONT face="courier new, monospace">}</FONT></DIV>
<DIV><FONT face="courier new, monospace"><BR></FONT></DIV>
<DIV><FONT face="courier new, monospace">$db->report;</FONT></DIV>
<DIV><FONT face="courier new, monospace">use DDP; p $db;</FONT></DIV>
<DIV><FONT
face="courier new, monospace">$db->box_plot->show();</FONT></DIV></DIV>
<DIV> </DIV>
<DIV>Estou anexado o resultado em grafico,</DIV>
<DIV>se quiserem que eu rode mais testes, com outros codigos dentro do HERE
vocês me avisem, pois o libROOT é ~meio~ demorado pra compilar.</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV></DIV>
<DIV class=gmail_extra><BR><BR>
<DIV class=gmail_quote>2014-05-28 21:24 GMT-03:00 Renato Santos <SPAN
dir=ltr><<A href="mailto:renato.cron@gmail.com"
target=_blank>renato.cron@gmail.com</A>></SPAN>:<BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<DIV dir=ltr>
<DIV>perl-5.20.0 is successfully installed.</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>hora de fazer o </DIV>
<DIV><PRE style="OVERFLOW: auto; FONT-SIZE: 14px; FONT-FAMILY: courier; COLOR: rgb(0,0,0); PADDING-LEFT: 25px; MARGIN: 10px 10px 25px 20px; BACKGROUND-COLOR: rgb(221,221,221)"> perl -MCPAN -e autobundle
</PRE></DIV>
<DIV>e verificar os ganhos de performance em apps reais!</DIV></DIV>
<DIV class=gmail_extra><BR><BR>
<DIV class=gmail_quote>2014-05-28 15:19 GMT-03:00 Daniel de Oliveira Mantovani
<SPAN dir=ltr><<A href="mailto:daniel.oliveira.mantovani@gmail.com"
target=_blank>daniel.oliveira.mantovani@gmail.com</A>></SPAN>:
<DIV>
<DIV class=h5><BR>
<BLOCKQUOTE class=gmail_quote
style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">garu++<BR><BR>Eu
ainda não me conformo com a ida da Diana, parece que foi ontem que<BR>nós
enchemos a cara no Rio!<BR><BR>2014-05-28 14:27 GMT-03:00 Thiago Rondon
<<A href="mailto:thiago@aware.com.br"
target=_blank>thiago@aware.com.br</A>>:<BR>
<DIV>
<DIV>> Garu++<BR>><BR>> Você deveria jogar este teu e-mail como
artigo em portais de<BR>> desenvolvedores e tecnologia.<BR>><BR>>
Isto é excelente para mostrar como a linguagem vem se
desenvolvendo!<BR>><BR>> Alias, seus e-mails, são artigos.
;-)<BR>><BR>> Abs,<BR>> -Thiago Rondon<BR>><BR>><BR>>
2014-05-28 2:00 GMT-03:00 breno <<A href="mailto:breno@rio.pm.org"
target=_blank>breno@rio.pm.org</A>>:<BR>>> Oi
pessoal,<BR>>><BR>>> é realmente uma ótima época para o Perl 5.
A comunidade internacional<BR>>> continua cada vez mais ativa e a
versão 20 que acabou de ser lançada é<BR>>> talvez uma das mais
interessantes dos últimos tempos! Vejam algumas<BR>>> das novidades
dessa versão:<BR>>><BR>>><BR>>> Assinaturas de
subrotinas<BR>>>
-----------------------------------<BR>>><BR>>> Até então, para
pegar os argumentos passados a uma função ou método em<BR>>> Perl,
precisávamos manipular diretamente o @_, em código
como:<BR>>><BR>>> sub pessoa
{<BR>>> my ($nome, $idade) =
@_;<BR>>> print "oi $nome, vc tem $idade
anos";<BR>>> }<BR>>><BR>>> Agora podemos
escrever:<BR>>><BR>>> use feature
'signatures';<BR>>><BR>>> sub pessoa ($nome, $idade)
{<BR>>> print "oi $nome, vc tem $idade
anos";<BR>>> }<BR>>><BR>>> podemos também garantir que
nossa sub não terá argumentos:<BR>>><BR>>> sub pessoa ()
{<BR>>> ...<BR>>>
}<BR>>><BR>>> mais informações sobre essa tão esperada feature
em:<BR>>> <A
href="https://metacpan.org/pod/release/RJBS/perl-5.20.0/pod/perlsub.pod#Signatures"
target=_blank>https://metacpan.org/pod/release/RJBS/perl-5.20.0/pod/perlsub.pod#Signatures</A><BR>>><BR>>><BR>>><BR>>>
Desreferenciamento pós-fixado<BR>>>
------------------------------------------<BR>>><BR>>> Até
então, para desreferenciar uma variável em Perl precisávamos<BR>>>
envolvê-la em chaves, por exemplo:<BR>>><BR>>> @lista = @{
$ref->{nomes}[3][-1]{lista} };<BR>>><BR>>> A versão 20 do
Perl 5 agora oferece outra sintaxe, mais clara (porque<BR>>> não
envolve as chaves extras) e intuitiva (pq segue a lógica de ação<BR>>>
do resto do código, da esquerda para a direita). Nessa sintaxe,
o<BR>>> mesmo código acima pode ser reescrito
como:<BR>>><BR>>> use experimental
'postderef';<BR>>><BR>>> @lista =
$ref->{nomes}[3][-1]{lista}->@*;<BR>>><BR>>> Ou seja,
basta acessar a referência desejada e adicionar uma última<BR>>> seta,
indicando no símbolo o tipo que você vai desreferenciar, seguido<BR>>>
de um asterisco. Podemos desreferenciar dessa forma arrays,
hashes,<BR>>> escalares, subs e até mesmo
globs!<BR>>><BR>>> Mais detalhes em<BR>>> <A
href="https://metacpan.org/pod/release/RJBS/perl-5.20.0/pod/perldelta.pod#Experimental-Postfix-Dereferencing"
target=_blank>https://metacpan.org/pod/release/RJBS/perl-5.20.0/pod/perldelta.pod#Experimental-Postfix-Dereferencing</A><BR>>><BR>>><BR>>><BR>>>
Hash Slices<BR>>> ----------------<BR>>><BR>>> Ao
manipularmos arrays, é muito comum pegar grupos de valores através de
slices:<BR>>><BR>>> @herculoides = qw( igoo tundro gloop zok
gleep );<BR>>> @irmaos = @herculoides[2,4];<BR>>><BR>>>
Também conseguiamos fazer slices de hashes, mas só retornando valores em
listas:<BR>>><BR>>> my %dados =
(<BR>>> nome => 'Thaddeus "Tad"
Ghostal',<BR>>> apelido => 'Space
Ghost',<BR>>> profissao =>
'Apresentador',<BR>>> );<BR>>><BR>>> my ($nome, $apelido)
= @dados{ 'nome', 'apelido' };<BR>>><BR>>> Agora, no 5.20,
podemos fazer hash slices completos, convertendo<BR>>> hashes grandes
em sub-hashes! O hash slice funciona como o array<BR>>>
slice:<BR>>><BR>>> my %resumido = %dados{ 'nome', 'apelido'
};<BR>>><BR>>> say $resumido->{apelido}; # 'Space
Ghost'<BR>>><BR>>><BR>>><BR>>> Outras
melhorias<BR>>> -----------------------<BR>>><BR>>> *
Melhor desempenho - o 5.20 está ainda mais rápido que os
anteriores,<BR>>> com melhorias de desempenho em expressões regulares,
cópia de strings,<BR>>> acesso a chaves de hash e muito
mais!<BR>>><BR>>> * Protótipos até então eram definidos como,
por exemplo: sub lala<BR>>> ($$). Agora podem ser escritos como
atributos da sub, ou seja: sub<BR>>> lala :prototype($$). A forma
antiga ainda é permitida.<BR>>><BR>>> * Melhor qualidade na
geração de números aleatórios, através de um<BR>>> gerador
independente de plataforma.<BR>>><BR>>> * Suporte a Unicode 6.3
(versão anterior suportava o 6.2).<BR>>><BR>>> * Android
adicionado como plataforma suportada - sim, o 5.20 compila<BR>>> para
Android! Instruções em:<BR>>> <A
href="https://github.com/Perl/perl5/blob/blead/README.android"
target=_blank>https://github.com/Perl/perl5/blob/blead/README.android</A><BR>>>
A compilação em ambientes Windows também ficou mais rápida e
portátil.<BR>>><BR>>> * E muito mais!<BR>>><BR>>> *
CGI e Module::Build (e seus módulos associados) são alguns dos<BR>>>
módulos que estão deixando o core para torná-lo mais leve e
moderno,<BR>>> mas ainda estão disponíveis no seu mirror favorito do
CPAN.<BR>>><BR>>><BR>>> Obituário<BR>>>
-------------<BR>>><BR>>> A versão 20 do Perl 5 contém também
uma homenagem a nossa querida<BR>>> Diana Rosa, falecida em maio com
apenas 27 anos. Sempre muito feliz e<BR>>> participante ativa da
comunidade de Perl Mongers do Rio de Janeiro,<BR>>> sua memória agora
está gravada para sempre em uma das versões mais<BR>>> importantes da
linguagem que ela tanto gostava. A mensagem está no<BR>>> perldelta e
pode ser vista em:<BR>>> <A
href="https://metacpan.org/pod/release/RJBS/perl-5.20.0/pod/perldelta.pod#Obituary"
target=_blank>https://metacpan.org/pod/release/RJBS/perl-5.20.0/pod/perldelta.pod#Obituary</A><BR>>><BR>>><BR>>>
Instalando<BR>>> --------------<BR>>><BR>>> Pra quem usa
perlbrew: perlbrew install perl-5.20.0<BR>>><BR>>> Pra quem usa
plenv: plenv install perl-5.20.0<BR>>><BR>>> Difícil, não?
:)<BR>>><BR>>><BR>>> Estatísticas e
Agradecimentos:<BR>>>
------------------------------------------<BR>>><BR>>> As
seguintes pessoas foram algumas das responsáveis pelo que se
tornou<BR>>> o perl 5.20.0 (embora essa lista esteja certamente
incompleta): Aaron<BR>>> Crane, Abhijit Menon-Sen, Abigail, Abir
Viqar, Alan Haggai Alavi, Alan<BR>>> Hourihane, Alexander Voronov,
Alexandr Ciornii, Andy Dougherty, Anno<BR>>> Siegel, Aristotle
Pagaltzis, Arthur Axel 'fREW' Schmidt, Brad Gilbert,<BR>>> Brendan
Byrd, Brian Childs, Brian Fraser, Brian Gottreu, Chris<BR>>> 'BinGOs'
Williams, Christian Millour, Colin Kuskie, Craig A. Berry,<BR>>>
Dabrien 'Dabe' Murphy, Dagfinn Ilmari Mannsåker, Daniel Dragan,
Darin<BR>>> McBride, David Golden, David Leadbeater, David Mitchell,
David Nicol,<BR>>> David Steinbrunner, Dennis Kaarsemaker, Dominic
Hargreaves, Ed Avis,<BR>>> Eric Brine, Evan Zacks, Father
Chrysostomos, Florian Ragwitz, François<BR>>> Perrad, Gavin Shelley,
Gideon Israel Dsouza, Gisle Aas, Graham Knop,<BR>>> H.Merijn Brand,
Hauke D, Heiko Eissfeldt, Hiroo Hayashi, Hojung Youn,<BR>>> James E
Keenan, Jarkko Hietaniemi, Jerry D. Hedden, Jess Robinson,<BR>>> Jesse
Luehrs, Johan Vromans, John Gardiner Myers, John Goodyear, John<BR>>>
P. Linderman, John Peacock, kafka, Kang-min Liu, Karen Etheridge,
Karl<BR>>> Williamson, Keedi Kim, Kent Fredric, kevin dawson, Kevin
Falcone,<BR>>> Kevin Ryde, Leon Timmermans, Lukas Mai, Marc Simpson,
Marcel Grünauer,<BR>>> Marco Peereboom, Marcus Holland-Moritz, Mark
Jason Dominus, Martin<BR>>> McGrath, Matthew Horsfall, Max Maischein,
Mike Doherty, Moritz Lenz,<BR>>> Nathan Glenn, Nathan Trapuzzano, Neil
Bowers, Neil Williams, Nicholas<BR>>> Clark, Niels Thykier, Niko Tyni,
Olivier Mengué, Owain G. Ainsworth,<BR>>> Paul Green, Paul Johnson,
Peter John Acklam, Peter Martini, Peter<BR>>> Rabbitson, Petr Písař,
Philip Boulain, Philip Guenther, Piotr<BR>>> Roszatycki, Rafael
Garcia-Suarez, Reini Urban, Reuben Thomas, Ricardo<BR>>> Signes,
Ruslan Zakirov, Sergey Alekseev, Shirakata Kentaro, Shlomi<BR>>> Fish,
Slaven Rezic, Smylers, Steffen Müller, Steve Hay, Sullivan Beck,<BR>>>
Thomas Sibley, Tobias Leich, Toby Inkster, Tokuhiro Matsuno, Tom<BR>>>
Christiansen, Tom Hukins, Tony Cook, Victor Efimov, Viktor
Turskyi,<BR>>> Vladimir Timofeev, YAMASHINA Hio, Yves Orton, Zefram,
Zsbán Ambrus,<BR>>> Ævar Arnfjörð Bjarmason.<BR>>><BR>>>
Perl 5.20.0 representa aproximadamente 12 meses de
desenvolvimento<BR>>> desde o 5.18.0 e contém aproximadamente 470.000
linhas modificadas por<BR>>> 2.900 arquivos, feitas por 124 autores
diferentes. A linguagem Perl<BR>>> continua florescendo em sua
terceira década graças a sua vibrante<BR>>> comunidade de
desenvolvedores e usuários - e isso inclui você!<BR>>> Obrigado por
usar Perl :)<BR>>><BR>>>
Divirtam-se!<BR>>><BR>>><BR>>> []s<BR>>><BR>>>
-b<BR>>> _______________________________________________<BR>>>
Brasil-PM mailing list<BR>>> <A href="mailto:Brasil-PM@pm.org"
target=_blank>Brasil-PM@pm.org</A><BR>>> <A
href="http://mail.pm.org/mailman/listinfo/brasil-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/brasil-pm</A><BR>>
_______________________________________________<BR>> Brasil-PM mailing
list<BR>> <A href="mailto:Brasil-PM@pm.org"
target=_blank>Brasil-PM@pm.org</A><BR>> <A
href="http://mail.pm.org/mailman/listinfo/brasil-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/brasil-pm</A><BR><BR><BR><BR></DIV></DIV><SPAN><FONT
color=#888888>--<BR><BR>-dom<BR><BR>--<BR><BR>Daniel de Oliveira
Mantovani<BR>Business Analytic Specialist<BR>Perl Evangelist /Astrophysics
hobbyist.<BR>+55 11 9 8538-9897<BR>XOXO<BR></FONT></SPAN>
<DIV>
<DIV>_______________________________________________<BR>Brasil-PM mailing
list<BR><A href="mailto:Brasil-PM@pm.org"
target=_blank>Brasil-PM@pm.org</A><BR><A
href="http://mail.pm.org/mailman/listinfo/brasil-pm"
target=_blank>http://mail.pm.org/mailman/listinfo/brasil-pm</A></DIV></DIV></BLOCKQUOTE></DIV></DIV></DIV><SPAN
class=HOEnZb><FONT color=#888888><BR><BR clear=all>
<DIV> </DIV>-- <BR>
<DIV><SPAN
style="FONT-SIZE: x-small; COLOR: rgb(51,51,51)">Saravá,</SPAN></DIV>
<DIV><SPAN style="FONT-SIZE: x-small; COLOR: rgb(51,51,51)">Renato
CRON</SPAN></DIV>
<DIV>
<DIV style="TEXT-ALIGN: right"><FONT color=#333333 size=1><A
href="http://www.renatocron.com/blog/"
target=_blank>http://www.renatocron.com/blog/</A></FONT></DIV></DIV>
<DIV style="TEXT-ALIGN: right"><FONT color=#333333 size=1><A
href="http://twitter.com/#!/renato_cron"
target=_blank>@renato_cron</A></FONT></DIV></FONT></SPAN></DIV></BLOCKQUOTE></DIV><BR><BR
clear=all>
<DIV> </DIV>-- <BR>
<DIV><SPAN style="FONT-SIZE: x-small; COLOR: rgb(51,51,51)">Saravá,</SPAN></DIV>
<DIV><SPAN style="FONT-SIZE: x-small; COLOR: rgb(51,51,51)">Renato
CRON</SPAN></DIV>
<DIV>
<DIV style="TEXT-ALIGN: right"><FONT color=#333333 size=1><A
href="http://www.renatocron.com/blog/"
target=_blank>http://www.renatocron.com/blog/</A></FONT></DIV></DIV>
<DIV style="TEXT-ALIGN: right"><FONT color=#333333 size=1><A
href="http://twitter.com/#!/renato_cron"
target=_blank>@renato_cron</A></FONT></DIV></DIV>
<P>
<HR>
_______________________________________________<BR>Brasil-PM mailing
list<BR>Brasil-PM@pm.org<BR>http://mail.pm.org/mailman/listinfo/brasil-pm</DIV></DIV></DIV></BODY></HTML>