Select Code to Download

my $handles = {
  400 => 1,  # BAD_INPUT
...
      exit $handles->{$_};
    }
}

my $handles = {
  200 => sub { print_response $response_content;  0}, # OK!
...
      exit $handles->{$_}->();
    }
}