Sign in
chromium
/
chromium
/
src.git
/
f72a62734e82e6930428116ab1f39692ec163c2a
/
.
/
third_party
/
blink
/
web_tests
/
http
/
tests
/
xmlhttprequest
/
resources
/
small-chunks.cgi
blob: 3d37b574f01ddab908f0810383f2e20c6696836c [
file
] [
log
] [
blame
]
#!/usr/bin/perl
use
IO
::
Socket
;
use
Time
::
HiRes
qw
(
sleep
);
$
|
=
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
0.1
;
}