Select Code to Download

 sub DESTROY{
      my $self = shift;
      $self->coun_decr();
      bless $self, $ISA[0]; 
 }

  my $inst_count = 0;
  sub get_inst_count { $inst_count }
  sub _incr_inst_count { ++$inst_count }
  sub _decr_inst_count { --$inst_count }