#!/usr/bin/perl -w 
use Inline Java => << 'End_Of_Java_Code';
import org.bcdc.hbm.services.*;

class FooBar {
 
    public PeopleService getPersonService() {
        return PeopleService.getInstance();
    }


}
End_Of_Java_Code

use Data::Dumper;

my $foo = new FooBar();

$foo -> setThing("This is thing!");
$foo -> setOtherThing(17);

my $psvc = $foo->getPersonService();

printf "%s\n",$psvc->getPersonNameFromID(1);

##</code><code>##

main::java::lang::NoClassDefFoundError=HASH(0x8f530e4)