in reply to Construction of a directory (path)

use lib File::Spec->rootdir() . File::Spec->catfile(qw(usr local ABC));

In Section Seekers of Perl Wisdom