# I usually molest $raw_request_string a little here...
  my $request = HTTP::Request->parse($raw_request_string);

##</code><code>##

  my $soap = SOAP::Transport::HTTP::Server
     -> new(YOUR_SOAP_SPECIFIC_ARGS) 
     -> dispatch_to(YOUR_CLASS);

##</code><code>##

  # and I usually munge headers/SOAPaction here...
  $soap->request($request);

##</code><code>##

  $soap->handle();

##</code><code>##

  my $response = $soap->response;