package foo;
sub run_foo {
    my($obj1,$obj2) = @_;
    # access passed java object
    $obj1->method;
    $obj2->attribute;
}
1;

##</code><code>##

PerlEnviromnent foo = loadPerlPackage("foo.pm");
foo.runSub('run_foo',some_object,another_object);