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