my  $foo;
BEGIN {  $foo = 'foom'; }
    use lib $foo;
    printf "executing:  '%s'\n", join("', '", @INC );