my $var = 5;
{
  eval {$var = 3; next};
  $var = 4;
}
print $var; # 3 !!