my $jroot="";
foreach my $a (keys %INC)
  {if ($INC{$a}=~/(.*)jinit.pm/){$jroot=$1}}
die "I cannot find datadirectory\n" if ($jroot eq "");