use strict ;
use warnings ; 

package FOO ;

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

sub bof2 {
	print $fic 
} 

1;