(Ajuda) Net::RawIP

[Densyy]

#!/usr/bin/perl

use Net::RawIP;

Ae galerinha alguém poderia me dar um help com esse modulo

estou querendo aprende-lo porem n entendo o codigo

se possivel alguém poderia explicar-me este codigo?

$packet = new Net::RawIP;

$packet->set({
ip => { saddr => '192.168.1.1',
daddr => '192.168.1.2'
},
tcp => { source => 2323,
dest => 23,
ack => 1,
seq => 10000000,
ack_seq => 10000000,
data => 'Testing Net::RawIP'
}
});

$packet->send(0,1);

[Jhonas]

o código esta parecendo que, ao fazer a conexão entre 2 micros ( ips ) é disparado um loop ( de 1 a 10 milhoes ) para testar a velocidade da transmissão dos dados.

abraço