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

This page starts the test.

dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page dummy page

ENDOFHTML exit 0;