Sign in
webkit
/
WebKit
/
6ac1ae7345a9a50f3760d4fdf5f8c6512c4a9901
/
.
/
LayoutTests
/
http
/
tests
/
xmlhttprequest
/
resources
/
small-chunks.cgi
blob: 0225a4ce102b245cc7ecdc0c266d94948b6344b2 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
use
IO
::
Socket
;
$
|
=
1
;
autoflush STDOUT
1
;
print
"Content-Type: text/html; charset=ISO-8859-1\n\n"
;
for
(
my
$i
=
0
;
$i
<
5
;
$i
++)
{
print
"This is chunk number $i"
;
sleep
1
;
}