{
    local $\="\n";
    print for @INC;

    eval q{
        use lib '/digger/';
    };

    print for @INC;
}
__END__
C:/Perl/lib
C:/Perl/site/lib
.
/digger/
C:/Perl/lib
C:/Perl/site/lib
.