#!/usr/bin/perl use strict; use warnings; $| = 1; print qq[Content-Type: text/html; charset=utf-8 ]; sleep 2; print qq[]; sleep 2; print q[]; sleep 2; print q[

Check DOM of this page!]; print q[

] . rand;