#!/usr/bin/perl
use warnings;
use strict;

use Benchmark ':all';

open OUT, '> nul' or die $!;
cmpthese(100000, {
	'cgi' => 'use CGI ":cgi";my $cgi = new CGI;print OUT $cgi->header("text/html");',
	'plain' => 'print OUT "Content-type: text/html\n\n";'
});