Ola Aureliano,<div><br></div><div>Então... testei aqui com chamando com "<span style="background-color:rgb(255,255,255);font-family:'Bitstream Vera Sans Mono','Courier New',monospace;font-size:12px;line-height:16px;text-align:left;white-space:pre">sudo perl <a href="http://script.pl">script.pl</a> 127.0.0.1 7201</span>" e ele executou sem nenhum problema.</div>

<div>Aqui está todo o código como está aqui na minha máquina: <a href="https://gist.github.com/2432871">https://gist.github.com/2432871</a></div><div><br></div><div>[ ]'s</div><div><br></div><div><div class="gmail_quote">

2012/4/20 Bruno Buss <span dir="ltr"><<a href="mailto:bruno.buss@gmail.com">bruno.buss@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div class="gmail_quote">
Aureliano,</div><div class="gmail_quote"><br></div><div class="gmail_quote"><div class="im">2012/4/20 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span><br>


<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">


<div><div dir="ltr">Sei que aqui tem muitas pessoas gentis, mas abro mão e não desejo mais ajuda, pois percebo que estou incomodando pessoas tão bem instruidas como Mantovani.<br></div></div></blockquote><div><br></div></div>

<div>
De boa cara... não vamos começar com drama aqui não.</div><div>Vamos resolver o problema...</div><div class="im"><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div><div dir="ltr">
Ainda me retornou o erro:<br><br>Use of uninitialized value $daddr in pattern match (m//) at /usr/lib/perl5/Net/RawIP.pm line 481, <> line 1.</div></div></blockquote><div><br></div></div><div>Essa é fácil! =P</div>

<div>Mesmo problema do caso anterior:</div>
<div><span>"            daddr => &target,"</span></div><div><span><br></span></div><div><span>Troque por:</span></div><div><span>"            daddr => $self->{TARGET},"</span></div><div class="im">


<div> </div><div><br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div dir="ltr"><div><br>Use of uninitialized value in subroutine entry at /usr/lib/perl5/Net/RawIP.pm line 626, <> line 1.<br>


Use of uninitialized value in subroutine entry at /usr/lib/perl5/Net/RawIP.pm line 626, <> line 1.<br></div></div></div></blockquote><div><br></div></div><div>Na sua sub send, logo depois de você fazer</div><div class="im">

<div>"<span>my $size = PacksSize->new;"</span></div>
<div><span><br></span></div></div><div><font color="#222222" face="arial, sans-serif">Coloque um:</font></div><div><font color="#222222" face="arial, sans-serif">say "TARGET = $self->{TARGET}";</font></div><div>


<span style="color:rgb(34,34,34);font-family:arial,sans-serif">say "PORT = $self->{PORT}";</span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif"><br></span></div><div><span style="color:rgb(34,34,34);font-family:arial,sans-serif">Só para fins de debug =P</span></div>


<div> </div><div><br></div><div>E depois cole seu código atual em um pastebin da vida, para facilitar a conversa :)</div><div><br></div><div>[ ]'s</div></div><div class="HOEnZb"><div class="h5">-- <br>Bruno C. Buss<br>

<a href="http://www.brunobuss.net" target="_blank">http://www.brunobuss.net</a><br>

</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>Bruno C. Buss<br><a href="http://www.brunobuss.net" target="_blank">http://www.brunobuss.net</a><br>
</div>