The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::Simple tests => 1;

use Java::Import qw(
	java.lang.Class
);

#call a static method on a class

eval {
	my $class = java::lang::Class->forName(jstring("java.lang.StringBuffer"));
	ok(1);
};