package Plack::Middleware::ProhibitRequestUri8190;
  use parent qw(Plack::Middleware);
  use Plack::Util;
  sub call {
      my($self, $env) = @_;
      my $res  = $self->app->($env);
      if( length $res->{REQUEST_URI} > 8190 ){
        Plack::Util::response_cb($res, sub {
            my $res = shift;
            $res->[0] = 414;
            return;
        });
      }
  }