method 'somemethod', sub
{
     # ...
}

##</code><code>##

class Thing;

our ($property,$size);

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

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


##</code><code>##

    my ($thing) = new Thing();

##</code><code>##

    $thing->Implode();