perl -wE'do { label: say 1;}; goto label'