Select Code to Download

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

eval {{
  $i++;
  redo unless do_sth($i);
}}