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;
