use Cwd;
my $path=getcwd() . "/" . __FILE__;
$path=~s/[^\/\\]+$//;
require $path."jcode.pl";

こうやることにしました