package Foo; eval 'require B' . 'oo; 1' or die; 1;