print "HTTP/1.1 200 OK" #### print "Content-type: text/html\n\n"; #### local STDOUT; select((select(STDOUT), $|++)[0]);