#!/usr/bin/perl
use strict;
use warnings;
$| = 1;
# 0s
sleep 2;
# 2s
print qq[Content-Type: text/html; charset=utf-8\n\n];
sleep 2;
# 4s
print q[ ];
sleep 2;
# 6s
print q[];
sleep 2;
# 8s
print q[];
sleep 2;
# 10s
print qq[];
sleep 2;
# 12s
print q[];
sleep 2;
# 14s
print q[Check DOM of this page!];
print q[
] . rand;