use strict; use Test::More; my $niter = shift or die "usage: $0 number-of-iterations\n"; plan tests => $niter; ok(1) for 1 .. $niter; print "Look at handle count in Windows Task Manager\n"; print "Then press [RETURN] to exit...\n";;