The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict ;

use blib ;

use Inline(
	Java => 'STUDY',
	SHARED_JVM => 1,
) ;

print "Shared JVM server started\n" ;
while (1){
	sleep(60) ;
}