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


1
2
3
4
5
6
7
8
9

print "HTTP/1.0 200 OK\r\n";
print join("\n",
     'Content-type: text/html',
     'Pragma: no-cache',
     'Cache-control: must-revalidate, no-cache, no-store',
     'Expires: -1',
     "\n");

print "ok\n";