Действительно заполняется так, как мы и предполагали. Но проблема в том, что никто не помешает

воспользоваться клиентом, ведущим себя менее добросовестно, к примеру, вот таким скриптом: (U/usr/bin/peri -

w use Socket:

$proto^getprotobyname( 'top' ),

sockct(Socket_Handle, PFJNET, SOCK_STREAM, $proto), Sport = 80:

$host= "www. victim, corn": $sin = sockaddrJ.n($port, inet_aton($host)):

connect(Socket_Handle, $sin);

send Socket_Handle, "GET /cgi-bin/env.cg].?param1=vaU&param2=val2 HTTP/I, 0n", 0; sendSocket_Handle,

"Reterer: any referer you wishn" ,0; send Socket_Handle, "User-Agent: myagentn",0: send Socket_Handle,"n",0:

while (<Socket_Handle> {

print $_: }