use strict;
use threads;
use threads::shared;
sub test {
    my $niter = shift;
    my @Test_Results = ();  share(@Test_Results);
    for (1 .. $niter) {
        my $result = {};
        share($result);
        push(@Test_Results, $result);
    }
}
my $niter = shift or die "usage: $0 number-of-iterations\n";
test($niter);
print "Look at handle count in Windows Task Manager\n";
print "Then press [RETURN] to exit...\n";<STDIN>;