#!perl

use Benchmark;

$count = shift || die "Need a count!\n";

sub one { eval("use CGI;")}
sub two { eval("use CGI ':cgi';")}
sub three { eval("use CGI ':all';")}

timethese (
$count,{
'Method 1' => '&one',
'Method 2' => '&two',
'Method 3' => '&three',
}
);
exit;