Select Code to Download

read $FOO, $s, $l or do {
    warn "reading foo file";
    last PROCESS_FOO;
}

        1 < ($scope = 0 + $scope) or
                die "nearword scope must be greater than 1";
...
                        last;
                };