# $socket->send( htonl($request_length) ) or die "3a Couldn't write to socket: $!"; $socket->send( pack('l>',$request_length) ) or die "3a Couldn't write to socket: $!"; $socket->send( $request ) or die "3b Couldn't write to socket: $!"; #### 5 Couldn't read data from server: