#!/usr/bin/perl

use strict;
use warnings;
use constant CRLF => "\r\n";
binmode STDOUT;

print "HTTP/1.0 200 OK".CRLF;
for(1..1000){
    sleep 1;
}
print "Content-Type: text/plain", CRLF, CRLF, "OK";