sub request_from_cgi {
    my ($self) = @_;

    my $q = $self->query;
    my $uri = $q->url;
    my $method = uc $q->request_method;
   
    # probably not an exhaustive list.
    my @http_envvars = qw/ DOCUMENT_ROOT HTTP_COOKIE 
    HTTP_REFERER HTTP_USER_AGENT HTTPS PATH QUERY_STRING
    REMOTE_ADDR REMOTE_HOST REMOTE_PORT REMOTE_USER
    REQUEST_METHOD REQUEST_URI SCRIPT_FILENAME SCRIPT_NAME
    SERVER_ADMIN SERVER_NAME SERVER_PORT SERVER_SOFTWARE /;

    my $headers = {};

    foreach my $var (@http_envvars) {
        if (exists $ENV{$var}) {
            $headers->{$var} = $ENV{$var};
        }
    }

    my $content = undef;

    if ($method eq 'POST') {
        $content = $q->param('POSTDATA');
    }
    elsif ($method eq 'PUT') {
        $content = $q->param('PUTDATA');
    }
    
    if (!defined $content) {
        my $len = $ENV{CONTENT_LENGTH} || 0;
        read STDIN, $content, $len;
    }

    return HTTP::Request->new(
        $method,
        $uri,
        HTTP::Headers->new($headers),
        $content,
    );
}