Select Code to Download

use strict;
use warnings;
...

   print "counter: ", $cntr, "\n";
}

use strict;
use warnings;
...

   print "counter: ", $cntr, "\n";
}

use strict;
use warnings;
...

   print "counter: ", $cntr->get, "\n";
}

time in seconds  :  FreeBSD  Linux  Mac OSX

...
mce_shared_oo.pl :   0.38    0.73    0.41

counter: 20000

time in seconds  :  FreeBSD  Linux  Mac OSX

...
mce_shared_oo.pl :   0.19    0.17    0.16

counter: 20000