tags/v1_29/t/net/perl/echo

#!perl
my $r = Apache->request;
$r->content_type("text/plain");
$r->send_http_header;

my $s = $r->args;

$r->print($s);