El Destructor

Perl elimina automáticamente la memoria de un objeto cuando es claro que ya no va a ser utilizado. Un método con el nombre especial DESTROY se dispara cuando la memoria asociada con un objeto debe ser eliminada (normalmente por que salimos de su ámbito de existencia).

65	sub DESTROY {
66	  my $self = shift;
67	
68	  $self->_decr_count();
69	}