$ perl -Mstrict -E '
while (KNOWN_HOSTS) {
say "Hello";
last;
}
close KNOWN_HOSTS;
'
Bareword "KNOWN_HOSTS" not allowed while "strict subs" in use at -e line 6.
Execution of -e aborted due to compilation errors.
####
$ perl -Mstrict -E '
while (KNOWN_HOSTS) {
say "Hello";
last;
}
say "Bye";
'
Bareword "KNOWN_HOSTS" not allowed while "strict subs" in use at -e line 6.
Execution of -e aborted due to compilation errors.
##
##
$ 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.