D:\dev>perl -e"do { next };"
Can't "next" outside a loop block at -e line 1.

D:\dev>perl -e"{ next };"