NAME

lwp-simple - using LWP::Simple and Benchmark.pm to benchmark mod_perl

DESCRIPTION

Here's what I generally use to benchmark, a Benchmark.pm/LWP::Simple combo. With the script below, you should be able to 'make start_httpd' in the mod_perl-x.xx/ build directory you might need to change the #! line in t/net/perl/cgi.pl the configuration is already set up for /perl/ and /cgi-bin/

cgi.pl is very small, just load CGI.pm and prints a little bit, here's the difference I see (on hpux-10.10):

Benchmark: timing 50 iterations of cgi, perl... cgi: 18 secs ( 0.96 usr 0.10 sys = 1.06 cpu) perl: 3 secs ( 0.76 usr 0.07 sys = 0.83 cpu)

THE SCRIPT

#!/opt/perl/bin/perl

use Benchmark;
use LWP::Simple;

$base = "http://localhost:8529";
$script = "cgi.pl?PARAM=2";

for (qw(cgi-bin perl)) {
    $$_ = join "/", $base, $_, $script;
}

timethese(50, {
    "cgi" => "(\$s = get('${'cgi-bin'}')) or die \$s",
    "perl" => "(\$s = get('$perl')) or die \$s",
});

__END__

AUTHOR

Doug MacEachern