for my $dir (@INC){
    print "$dir\n";
}

##</code><code>##

unshift @INC, "C:\strawberry\perl";