$ 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
.