#! perl -slw
{
    package Test;
    use Object::InsideOut;

    my @dummy :Field;
}

package main;
use threads;
use threads::shared;

print $];
print $threads::VERSION;
print $threads::shared::VERSION;
print $Object::InsideOut::VERSION;

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

__END__
c:\test>junk66
5.010001
1.76
1.33
3.69