#!/usr/bin/perl 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
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
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;