use File::Basename;
my $cwd = dirname $0;
$cwd =~ qw "(/.*)/" ;
$cwd = $1;
print $cwd;
require "$cwd/lib/Cisco/MyCopy3.pm";