#!/usr/bin/perl
require "jcode.pl";
# now you can use it as per perl 5 synopsis
$code = jcode::getcode(\$line);