for(@INC){
    unless($_ eq '.'){
        $libPath = $_;
        last;
    }
}