...cut...

package SOAP::Transport::HTTP::CGI;

  ...cut...

sub handle {
  my $self = shift->new;

  my $length = $ENV{'CONTENT_LENGTH'} || 0;

  if (!$length) {
    $self->response(HTTP::Response->new(411)) # LENGTH REQUIRED