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

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