Help for this page
my $handles = { 400 => 1, # BAD_INPUT ... exit $handles->{$_}; } }
my $handles = { 200 => sub { print_response $response_content; 0}, # OK! ... exit $handles->{$_}->(); } }