debian/perl-framework/t/htdocs/modules/cgi/nph-interim1.pl.PL


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

foreach $i (1..5) {
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
;