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

##</code><code>##

Use of uninitialized value in print at bin/cpcfg.pl line 26.
Use of uninitialized value in concatenation (.) or string at bin/cpcfg.pl line 2
7.

##</code><code>##

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