blob: fa73355fe5c725fd101b9b9022673a07c8983c1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
print "HTTP/1.0 200 OK\r\n";
print "Transfer-Encoding: chunked\r\n";
print "\r\n";
$| = 1;
sub dripfeed {
my $s = shift;
while (length($s)) {
select(undef, undef, undef, 0.2);
print substr($s, 0, 1);
$s = substr($s, 1);
}
}
dripfeed "0005\r\nabcde\r\n1; foo=bar\r\nf\r\n0\r\n\r\n";
|
