No no no. The modern, structured replacement for GOTO (long jump) is exceptions.

  while(1) {  # eternal
    ...
    if ( -T _ ) { # terminal. yuk yuk
      die "OUTAHERE"; # or croak
    }
  }
[download]