# If the perl module is installed, this will be enabled.
<IfModule mod_perl.c>
  Alias /perl/ /home/httpd/perl/
  <Location /perl>
    SetHandler perl-script
    PerlHandler Apache::Registry
    Options +ExecCGI
  </Location>
</IfModule>

##</code><code>##

#!/usr/bin/perl -w
$|=1;
use strict;
use LWP::Simple;
use Time::HiRes;
print "Content-type:text/html\n\n";
print "\n\n<pre>";
print Time::HiRes::time()."\n";
my $cd;my $z;
my $st = Time::HiRes::time();
for($z=0; $z < 10;$z++){
my $ast = Time::HiRes::time();
my $get = get "http://www.perl.to/index.cgi?a=".$z;
my $aed = Time::HiRes::time();
print "$z(".($aed-$ast).")\n";
}
print "$cd\n";
my $ed = Time::HiRes::time();
print "took=".($ed-$st)."</pre>";