Help for this page

Select Code to Download

Select or download this

    package MyClass;
        
...
    sub DESTROY {
        $count --;
    }