tags/v1_27/t/net/perl/io/redir2.pl

use strict;
my $r = shift;
$r->send_http_header('text/plain');
print "OK";