use Socket qw(:crlf);

print "Content-Type: text/html$CRLF$CRLF";