Select Code to Download

package Counter;

...
    return $counter;
}
1;

#!/usr/bin/perl -w
use Counter;
...
$x->incCounter();
print $x->getCounter()."\n";
print $y->getCounter()."\n";