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