package MY::PlainHandler;

use strict;
use warnings;
use Apache2::RequestIO qw();
use Apache2::RequestRec qw();
use Apache2::RequestUtil qw();
use Apache2::Const -compile => qw(OK);
use File::Spec::Functions qw(catfile);
use MY::slurp;

sub handler {
    my $r = shift;
    $r->content_type('text/plain');
    $r->print( slurp(catfile($r->document_root,'test.txt')) );
    return Apache2::Const::OK;
}

1;