depois de 20 anos, fiz meu primeiro script perl. curti!