Running this code on 2 OSes, gave me the following results, so far: 
Lin: /etc/perl
Win: C:/Perl/site/lib

##</code><code>##

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

##</code><code>##

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

##</code><code>##

print "@INC\n";