12 lines
262 B
Perl
12 lines
262 B
Perl
# produces output with folded response headers
|
|
|
|
print "HTTP/1.0 200 OK\r\n";
|
|
|
|
for (1..50) {
|
|
print "X-Foo-Bar-$_:\n " . 'x'x($_*10) . "\n";
|
|
print "X-Bar-$_:\n gamm\r\n beta\n theta\r\n";
|
|
}
|
|
|
|
print "Content-type: \n text/plain\n\n";
|
|
|
|
print "hello, world";
|