gistfile1.txt

use 5.010;
require "t/test.pl";

my $i = 2112;

ok( $i == 2112, '$i starts at 2112' );

for $i (1..3) {
    somesub();
}

ok( $i == 2112, '$i should go back to 2112 outside of the loop' );

sub somesub {
    state $n;
    ++$n;
    ok( $i == $n, '$i is ' . $n );
}