sub _read_content {
    my ($self) = @_;
 
    my $length = $ENV{CONTENT_LENGTH};
    my $buf;
 
    read STDIN, $buf, $length;
 
    return $buf;
}