package test1::sample;
use strict;
use warnings;

#old use Apache::Constants qw(OK);
use Apache2::Const qw(OK);

use Apache2::RequestRec();
use Apache2::RequestIO();

sub handler {
    my $r=shift;
    #old $r->send_http_header("text/plain");
    $r->content_type("text/plain");
my $a=<<EOS
test
test
test
EOS
;
    $r->print($a);
    return OK;
}

1;