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