16 lines
161 B
Perl
16 lines
161 B
Perl
foreach $i (1..50) {
|
|
print <<EOT1
|
|
HTTP/1.1 100 Continue
|
|
Server: Sausages/1.0
|
|
|
|
EOT1
|
|
;
|
|
}
|
|
|
|
print <<EOT2
|
|
HTTP/1.1 200 OK
|
|
Content-Type: text/html
|
|
|
|
Hello world
|
|
EOT2
|
|
;
|