# ********** ObjectPoolDemo.pl ********** 
use strict;
use ObjectPool;
use Integer;
use Time::HR;

my $t1 = gethrtime();
my $pool = ObjectPool->new();
my $i;
for ($i=0; $i<100000; $i++) { 
  my $obj = $pool->acquire();
  $pool->release($obj);
}
my $t2 = gethrtime();
print (int(($t2-$t1)/1000000))." ";
