gistfile1.PL

sub _req_headers {
  my ($self, $env) = @_;
  my @headers;
  if ($self->preserve_host_header and $env->{HTTP_HOST}) {
    push @headers, "Host", $env->{HTTP_HOST};
  }
  elsif ($self->rewrite_host_header) {
    push @headers, "Host", $self->rewrite_host_header;
  }
  return @headers;
}