package Bar;
use vars qw($COUNT);

BEGIN {  $COUNT = 0;}
1;

--- script test.pl --
use Bar;
print "count is ", $Bar::COUNT, "\n";
$Bar::COUNT++;
print "count is ", $Bar::COUNT, "\n";

##</code><code>##

count is 0
count is 1