...
 ThreadsPerChild 100
 MaxRequestsPerChild 0
 ...
 ErrorLog logs/error.log
 ...
 LogLevel warn
 ...

##</code><code>##

 
  *CORE::GLOBAL::warn = \&Apache2::ServerRec::warn;

##</code><code>##

  local $SIG{__WARN__} = \&Apache2::ServerRec::warn;

##</code><code>##

  use Apache2::Const -compile => qw(:log);
  use APR::Const     -compile => qw(ENOTIME SUCCESS);
 
  *CORE::GLOBAL::warn = \&mywarn;
 
  sub mywarn
  {
   my @msg = @_;
 
   my $s = Apache2::ServerUtil->server; 
   $s->log_serror(Apache2::Log::LOG_MARK, Apache2::Const::LOG_WARNING,
           APR::Const::SUCCESS, @msg);
   $s->log_serror(Apache2::Log::LOG_MARK, Apache2::Const::LOG_ERR,
           APR::Const::SUCCESS, @msg);
  }