Hat jemand eine Idee was ich falsch mache?
Meine erste Zeile im Code ist:
my $start = join(" ",times());
Meine letzten Zeilen sind
print "Content-type: text/html\n\n";
print $start;
print "<br>";print join(" ",times());
print "<br>";
Ich bezweifle, dass times() die richtige Funktion dafür ist. Um eine kurze Zeitspanne zu messen ist das Modul [Time::HiRes](http://search.cpan.org/dist/Time-HiRes/HiRes.pm) wohl die bessere Wahl. Ich mach das so, dass ich direkt die Funktion time überschreibe
`use Time::HiRes qw (time);`{:.language-perl}
Nun gibt die Funktion time (wenn möglich) die Zeit in Mikrosekunden zurück.
Struppi.