perl -le 'sub leave { last }; leave(1)'
Can't "last" outside a loop block at -e line 1.
perl -le '$foo = do { last }'
Can't "last" outside a loop block at -e line 1.
perl -le '$foo = eval { last if 1; 2; }; print $@ if $@; print ">$foo<"'
Can't "last" outside a loop block at -e line 1.

><