my $var = 42;
{
  local $var = 13;
  ..
}


##</code><code>##

    {
      local $@; # protect existing $@
      eval { ... };