use strict;
use warnings;


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

Principal::bof();