#!/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" );