GOOD catch!

I put a sigpipe handler in and voila!
no more ugly program aborting

thanks

sub send_http_resp {
   print "$$ begin: send_http_resp\n" if $verbose;
   my ($client, $content) = @_;
   local $SIG{PIPE} = sub { print "$$ SIGPIPE\n" };
   eval {
      my $header = HTTP::Headers->new('Content-Type' => 'text/xml; cha
+rset=utf-8');
      print "$$ send_http_resp : created a new HTTP::Headers object\n"
+ if $verbose;
      my $response = HTTP::Response->new(200, 'OK', $header, $content)
+;
      print "$$ send_http_resp : created a new HTTP::Response object\n
+" if $verbose;
      $client->send_response($response);
      print "$$ send_http_resp OK\n" if $verbose;
   };
   if ($@) {
      print "$$ caught http exception: $@\n" if $verbose;
   }
   print "$$ end: send_http_resp\n" if $verbose;
}
[download]