$ perl -E'last while 1;'
Can't "last" outside a loop block at -e line 1.

$ perl -E'do { last; };'
Can't "last" outside a loop block at -e line 1.

$  perl -E'do { last; } while 1;'
Can't "last" outside a loop block at -e line 1.