package Whatever;

sub new {
  my $class = shift;
  my $ob = {};

  # ...

  { our $_total_constructed; $_total_constructed++ }

  bless $ob, $class
}

sub DESTROY { our $_total_destroyed; $_total_destroyed++ }