--- 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($)