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