Select Code to Download

  use strict ; use warnings ;

...
    inner($s.'  ') ;
    print "$s  buddy exit\n" ;
  } ;

    local *inner ; print "$s  *** separate local\n" ; *inner