BEGIN {
  @INC = qw( /tmp/lib1 /tmp/lib2/ /tmp/lib3 );
}
use Foo::Bar;