Select Code to Download

    STMT if EXPR
    STMT unless EXPR
    STMT while EXPR
    STMT until EXPR
    STMT foreach EXPR

    if (EXPR) BLOCK
    if (EXPR) BLOCK else BLOCK
...
    LABEL foreach VAR (LIST) BLOCK
    LABEL foreach VAR (LIST) BLOCK continue BLOCK
    LABEL BLOCK continue BLOCK

D:\Development>perl -Mstrict -wle "my $foo=1 if 0; print defined($foo)
+ ? $foo : 'undef'"
undef
...
Global symbol "$foo" requires explicit package name at -e line 1.
Global symbol "$foo" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.