{
    my $count;  # Number of class instances that exist.

    sub BUILD {
        ++$count;
        #
    }

    sub DEMOLISH {
        --$count;
        #
    }
}