michael@0: #!/usr/bin/perl michael@0: # michael@0: # This Source Code Form is subject to the terms of the Mozilla Public michael@0: # License, v. 2.0. If a copy of the MPL was not distributed with this michael@0: # file, You can obtain one at http://mozilla.org/MPL/2.0/. michael@0: use Time::HiRes qw(gettimeofday tv_interval); michael@0: michael@0: sub encodeHiResTime { michael@0: my $timeref = shift; michael@0: return unless ref($timeref); michael@0: my $time = $$timeref[0] . "-" . $$timeref[1]; michael@0: return $time; michael@0: } michael@0: michael@0: my $time = encodeHiResTime([gettimeofday()]); michael@0: michael@0: print "Content-type: text/html\n\n"; michael@0: print <<"ENDOFHTML"; michael@0: michael@0: michael@0: michael@0: michael@0: michael@0:

michael@0: This page starts the test. michael@0:

michael@0:

michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0:

michael@0:

michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0:

michael@0:

michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0: dummy page dummy page dummy page dummy page dummy page dummy page michael@0:

michael@0: michael@0: michael@0: michael@0: ENDOFHTML michael@0: michael@0: exit 0;