Select Code to Download

        for (my $i = 1; $i < 10; $i++) {
            ...
        }

    {
        my $i = 1;
...
            $i++;
        }    
    }

use strict;
use warnings;
...
}

$_->() for @while;

cfor:     i=1     x=4 at d:/exp/pm_closure2.pl line 11.
cfor:     i=2     x=4 at d:/exp/pm_closure2.pl line 11.
...
while:     i=1     x=3 at d:/exp/pm_closure2.pl line 25.
while:     i=2     x=3 at d:/exp/pm_closure2.pl line 25.
while:     i=3     x=3 at d:/exp/pm_closure2.pl line 25.