Help for this page

Select Code to Download

Select or download this

package Bar;
use vars qw($COUNT);
...
print "count is ", $Bar::COUNT, "\n";
$Bar::COUNT++;
print "count is ", $Bar::COUNT, "\n";

Select or download this
```
count is 0
count is 1
```