Anonymous user
Hello world/Web server: Difference between revisions
m
→{{header|Perl}}: changed message to HTML and added HTTP status code
(Added Perl implementation) |
m (→{{header|Perl}}: changed message to HTML and added HTTP status code) |
||
Line 130:
while( accept(CLIENT, SOCK) ){
print CLIENT "
"Content-Type: text/html; charset=UTF-8\r\n\r\n" .
"<html><head><title>Goodbye, world!</title></head><body>Goodbye, world!</body></html>\r\n";
close CLIENT;
}</lang>
|