> perl -mlib="sub{\$x=10}" -le'BEGIN{print "x=",$x++};\
                               use FindBin;\
                               print "x=$x"; 
                               print join $/,@INC'
x=0
x=1
sub{$x=10}
/local/lib/perl
/usr/local/lib/perl5
/usr/opt/perl5/lib/5.8.0/aix-thread-multi
/usr/opt/perl5/lib/5.8.0
/usr/opt/perl5/lib/site_perl/5.8.0/aix-thread-multi
/usr/opt/perl5/lib/site_perl/5.8.0
/usr/opt/perl5/lib/site_perl
.