+print SOCK ($opts{"h"} ? "HEAD" : "GET")." $path HTTP/1.0\r\n";
+my %header=(
+ "Host"=>$hostport,
+ "X-httpgetdumb"=>'$Id$',
+ );
+$header{"Accept"}="application/xhtml+xml" if $opts{"x"};
+while (my($key,$val)=each(%header)) {
+ print SOCK "$key: $val\r\n";
+ }
+print SOCK "\r\n";