package Test;

use threads;
use threads::shared;

{
       use Object::InsideOut;

       my @dummy :Field;
}

package main;

while (1)
{
       my $o = new Test;
}