sub func {
   my ($s) = $_[0];  # Safe.
   local *_ = \$s;
   ...
}