Descubra serviços de DNS com Perl
