Select Code to Download

#!/usr/bin/perl -lw
print $];
...
    my $i = 123 if $bar;
    print ++$i;
}

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