package MyClass;
        
    my $count = 0;
        
    sub new {
        my $proto = shift;   
        my $class = ref $proto || $proto;
        $count ++;
        my $obj = ....;
        bless $obj => $class;
    }

    sub DESTROY {
        $count --;
    }