perl -e"warn foo, last while;"
syntax error at -e line 1, near "while;"