Select Code to Download

use strict;
use warnings;
...
print "$i\n";  # still prints 3, so something must be wrong!
$i=$i+3;       # check whether Perl works correctly...
print "$i\n";  # prints 6, what a relief