Select Code to Download

sub method {
    my @args = @_;
...
    my $result = C++CODE::method(@args);
    return $result;
}

use lib (<path>)
use (C++ package)

my $dsgn = new (c++_object)
$dsgn->(method)

MAIN
my C++object
...
  routine
      my $C++object = @_
      $C++object->method()