or download this
# $socket->send( htonl($request_length) ) or die "3a Couldn't write
+ to socket: $!";
$socket->send( pack('l>',$request_length) ) or die "3a Couldn't wr
+ite to socket: $!";
$socket->send( $request ) or die "3b Couldn't write to socket: $!"
+;