# Скрипт, подделывающий заголовок Referer
#
#!/usr/bin/perl -w
use Socket;
$proto=getprotobyname('tcp');
socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto);
$port=80;
$host="www.victim.com";
$sin=sockaddr_in($port,inet_aton($host));
connect(Socket_Handle,$sin);
send Socket_Handle, "GET /cgi-bin/env.cgi?".
			"param1=val1¶m2=val2 HTTP/1.0\n",0;
send Socket_Handle,"Referer: any referer you wish\n",0;
send Socket_Handle,"User-Agent: my agent\n",0;
send Socket_Handle,"\n",0;
while ()
{
	print;
}
close (Socket_Handle);

$submit = "POST $path HTTP/1.0\r\n Referer: $url\r\n".
	   "User Agent: Mozilla/4.07 (Win95; I)\r\n".
	   "Content-type: application/x-www-form-urlencoded\r\n".
	   "Content-length: $length\r\n\r\n$content\r\n";