my $dsgn = subA();
$dsgn->method();

sub subA {
  my $obj = new (c++_object);
  return $obj;
}

##</code><code>##

my $obj = new (c++_object)
subA($obj)

sub subA {
  my ($object) = @_;
  $object->method();
}

##</code><code>##

    CALLEE can NOT return OBJECT

    CALLER can ALWAYS pass OBJECT