jcode.pl をフルパスで書くか
jcode.pl のあるディレクトリを@INC に押し込めるかといったところでしょ

BEGIN{ unshift(@INC, 'path'); };
use lib qw(path);