perl -wE " { L1: say 1; } goto L1; "