[perl] Exercicio 6 secao Class
[perl] ex7 class