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

sub create_new {
    my $ret = new (c++_object);
    return $ret;
}