$ perl -le " use lib do { my @She = qw[ wah diddy diddy dum diddy do ]
+; $She[ rand @She ]; }; print for @INC "
diddy
C:/perl/site/5.12.2/lib/MSWin32-x86-multi-thread
C:/perl/site/5.12.2/lib
C:/perl/5.12.2/lib/MSWin32-x86-multi-thread
C:/perl/5.12.2/lib
.
[download]

use File::Spec;
use File::Basename qw' dirname ';
BEGIN {
    my $thisf = File::Spec->rel2abs(__FILE__);
    my $thisd = dirname($thisf);
    use lib File::Spec->catfile( $thisd, File::Spec->updir, 'lib' );
}
[download]

use Path::Class;
BEGIN {
    my $thisf = file(__FILE__)->absolute;
    my $thisd = $thisf->dir;
    use lib dir( $thisd, '..','lib' );
}
[download]

use Path::Class;
use lib dir( __FILE__, '..','..','lib')->absolute->resolve;
[download]