Make that BEGIN { $|= 1; print "Content-Type: text/plain\r\n\r\n"; }, the $|= 1 part being important, the \r's likely not important (that part of the RFC is rarely a sticking point, thankfully).