use lib LIST; no lib LIST; ***** use lib LIST; ***** BEGIN { unshift(@INC, LIST) } ***** use Config; $archname = $Config{'archname'}; ***** no lib LIST ***** no lib qw(:ALL .); ***** @INC = @lib::ORIG_INC;