--- toast	2010/01/11 03:41:49	1.476
+++ toast	2010/01/13 04:24:48	1.477
@@ -977,7 +977,6 @@
       "User-Agent: $uagent\r\nAccept: */*\r\n$clen\r\n$body";
   tcpconnect(*HANDLE, $host, $port);
   print HANDLE $request || error("write to $host:$port: $!");
-  shutdown(HANDLE, 1) || error("shutdown write $host:$port: $!");
 }
 
 sub httphead($)