Select Code to Download

$data = init();
while(still_alive)
{
...
  print $logfile "Input contained $data";
  next if invalid($data);
}

STATE: until ($state->name eq 'Ending')
{
  $state->action();
...
  $state = $state->nextState(context);
  next STATE unless $blackList->contains($state); #here we want to go 
+to the next state without processing the current one
}