Select Code to Download

#!/usr/bin/perl
use File::Copy;
# point this to where the script currently is
my $jcode_path = '/home/me/scripts/jcode.pl';
copy( $jcode_path, "$INC[0]/jcode.pl" );

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