Aca les dejo una funcion para conectarse mediante sockets al servidor que quieran
Código
use IO::Socket; sub conectar { my $sockex = new IO::Socket::INET(PeerAddr => $_[0],PeerPort => $_[1], Proto => "tcp",Timeout => 5); $sockex->read($re,5000); $sockex->close; }
Sintasis
Código:
conectar(host,puerto,parametro a enviar)
Ejemplo de uso
Código
$re = conectar("127.0.0.1","80","GET /sql.php HTTP/1.0\r\n");