Sign in
apache
/
httpd-tests
/
bbfbe8d7d1f726b14e061a8a297575506bdbafc2
/
.
/
t
/
htdocs
/
modules
/
cgi
/
perl_echo.pl.PL
blob: b7591a65a19f3990a9410f344fde9c4680e6950f [
file
] [
log
] [
blame
]
#echo some data back to the client
print
"Content-type: text/plain\n\n"
;
if
(
my
$ct
=
$ENV
{
CONTENT_LENGTH
})
{
read STDIN
,
my
$buffer
,
$ct
;
print
$buffer
;
}
elsif
(
my
$qs
=
$ENV
{
QUERY_STRING
})
{
print
$qs
;
}
else
{
print
"nada"
;
}