- or download this
use strict;
use warnings;
...
print "\ni is ".$i++;
$part2->();
print "\ni is $i";
- or download this
% test1.pl
i is 1
now its 2
i is 2
- or download this
use strict;
use warnings;
...
print "\ni is ".$i++;
$part2->();
print "\ni is $i";
- or download this
% test1.pl
i is 1
i is 2