package ABC;

sub new {
....
}

sub init {
 my $self = shift;
 use Inline Java << EOJ , ....
....
EOJ
 ;
 $self->{obj} = ABC::javasclassfrominline->new()
}

sub somemethod {
 my $self = shift;
 $self->{obj}->callsomejavamethod();
}
1;