sub serve_everything
{
	my ($conn, $req) = @_;
	...
	$ENV{CONTENT_TYPE}   = join('; ', $req->content_type) || '';
	...
	local *main::STDIN = $conn;
	use CGI;
	my $cgi = CGI->new();