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

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