gistfile1.perl

diff --git a/lib/Mojo/Server/PSGI.pm b/lib/Mojo/Server/PSGI.pm
index aa9b09c..1740d6c 100644
--- a/lib/Mojo/Server/PSGI.pm
+++ b/lib/Mojo/Server/PSGI.pm
@@ -21,10 +21,14 @@ sub run {
   $tx->local_port($env->{SERVER_PORT});
 
   # Request body
+  my $cl = $env->{CONTENT_LENGTH};
   while (!$req->is_done) {
-    my $read = $env->{'psgi.input'}->read(my $buffer, CHUNK_SIZE, 0);
+    my $chunk = ($cl && $cl < CHUNK_SIZE) ? $cl : CHUNK_SIZE;
+    my $read  = $env->{'psgi.input'}->read(my $buffer, $chunk, 0);
     last unless $read;
     $req->parse($buffer);
+    $cl -= $read;
+    last if $cl <= 0;
   }
 
   # Handle