Select Code to Download

# Test to simulate semaphore growth in Test::Builder.
# Grows by 4 semaphore handles per iteration.
...
ok(1) for 1 .. $niter;
print "Look at handle count in Windows Task Manager\n";
print "Then press [RETURN] to exit...\n";<STDIN>;