{ package test;

        use Object::InsideOut;
        use IO::Socket::INET;

        my @socket :Field Handles(IO::Socket::INET)
                   :Default( _make_socket() );

        my @field  :Field Arg(field) Get(getField);

        sub _make_socket :Private {
            return IO::Socket::INET->new(
                      PeerAddr => '127.0.0.1:80', 
                      Proto    => 'tcp', 
                      Blocking => 0
                   );
        }

        sub _cleanup :Destroy {
            my $self = shift;
            print STDERR "Bye from $field[$$self]!\n";
        }

    }

    my $obj = test->new(field => "okay");
    print $obj->getField."\n";           
    print $obj->sockhost."\n";           
                                         
    my $two = test->new(field => "two"); 
    print $two->getField."\n";