#!/usr/bin/perl -w
use strict;
use diagnostics;
use LWP::Simple;
use Benchmark;
#
my $mod_perl_code = 
'get "http://localhost/perl-bin/mod_perl-test.pl"<\#146>;
my $cgi_code = 
'get "http://localhost/cgi-bin/cgi-insert-test.pl"<\#146>;
#
timethese(100, {
	'Apache::DBI<\#146> => $mod_perl_code,
	'Plain CGI<\#146> => $cgi_code
	});