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

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