use Benchmark;
use CGI qw/:cgi /;
use CGI::Simple;
$ENV{'QUERY_STRING'} = 'foo=bar&baz=boo';
$q = new CGI;
$s = new CGI::Simple;
timethese(250000, {'CGI' =>'$q->param("baz")', 'Simple' => '$s->param(
+"baz")'});