c:\@Work\Perl\monks>perl -wMstrict -le
"{ package A;
   our $count = 0;
   ;;
   sub new {
     my $class = shift;
     ++$count;
     return bless [ @_ ] => $class;
     }
   ;;
   sub ding { my $self = shift;  print 'ding';  return ++$count; }
   }
 ;;
 print 'count is: ', $A::count;
 ;;
 print 'create A object';
 my $oa = A->new('hi there');
 print 'count is: ', $A::count;
 ;;
 $oa->ding;
 print 'count is: ', $A::count;
 ;;
 $oa->ding;
 print 'count is: ', $A::count;
"
count is: 0
create A object
count is: 1
ding
count is: 2
ding
count is: 3