Color Oop Perl 5 — Entidade