$ perl -Mstrict -E '
    while (KNOWN_HOSTS) {
        say "Hello";
        last;
    }
    continue {
        1;
    }
'
Bareword "KNOWN_HOSTS" not allowed while "strict subs" in use at -e line 8.
Execution of -e aborted due to compilation errors.