Extensão do Perl para sobrescrever facilmente subrotinas
