use strict ;
use warnings ; 

package FOO ;

sub Principal::bof {
	my $fic = "toto" ; 
	bof2() ; 
} 

sub bof2 {
	print $fic 
} 

1; 

##</code><code>##

use strict ;
use warnings ;
package Principal ;
require ("ot.pm") ; 
Principal::bof() ;