my $cwd = "/ddd/862/8u/sss";
$cwd =~ qw "(/.*)/" ;
$cwd = $1;
print $cwd;
require "$cwd/lib/Cisco/MyCopy3.pm";