=== lib/Perlbal/ClientProxy.pm
==================================================================
--- lib/Perlbal/ClientProxy.pm  (revision 1553)
+++ lib/Perlbal/ClientProxy.pm  (local)
@@ -231,10 +231,10 @@
     if (my $range = $self->{req_headers}->header("Range")) {
         $extra_hdr .= "Range: $range\r\n";
     }
-    if (my $host = $self->{req_headers}->header("Host")) {
-        $extra_hdr .= "Host: $host\r\n";
-    }
 
+    my $host = $datref->[0];
+    $extra_hdr .= "Host: $host\r\n" if $host;
+    
     my $req_method = $self->{req_headers}->request_method eq 'HEAD' ? 'HEAD' : 'GET';
     my $headers = "$req_method $datref->[2] HTTP/1.0\r\nConnection: keep-alive\r\n${extra_hdr}\r\n";