#!/usr/bin/perl -lw
print $];
for (1 .. 5) {
    my $i = 123 if $bar;
    print ++$i;
}

##</code><code>##

Name "main::bar" used only once: possible typo at test.pl line 4.
5.008003
1
2
3
4
5