BEGIN { print "#",$ENV{'J2SDK'},"#\n" }
use Inline ( 
...
);

use Data::Dumper;
$Data::Dumper::Useqq=1;
print "For comparision:\n",Dumper('path-to-java', $ENV{'J2SDK'});