{ package safezone;
  local $a;
  sub eval_it {
    eval shift;
  }
}