#!/usr/bin/perl

use strict;
use Apache2::RequestRec ();
use Apache2::Const qw(:common);

sub handler {
    my $r = shift;

    $r->print("Content-Type: text/plain\n\n");
    $r->print('TEST!');
    return OK;
}   

1;