class Thing;

our ($property,$size);

sub new
{
     return $self;  # Returns a handle to this object
}

sub Implode
{
     $size = 0;     # Local to this object instance
}