use Apache2::ServerRec ();

$timeout  = $s->timeout();

##</code><code>##

#!/opt/local/bin/perl
package MyApache2::Timeout;

use strict;
use warnings;

use CGI::Carp qw{fatalsToBrowser};
use Apache2::ServerRec();

use Apache2::Const -compile => qw{OK};

sub handler {
        my $r = shift;
        $r->content_type('text/plain');
        my $timeout = $r->timeout();

        return Apache2::Const::OK;
}
1;

##</code><code>##

PerlModule MyApache2::Timeout
<Location /timeout>
        SetHandler modperl
        PerlResponseHandler MyApache2::Timeout
</Location>