perl -wE'my $x=0;do { label: say $x++; die if $x>1}; goto label' 0 1 Died at -e line 1.