Pra que vc tá usando MIME::Base64 junto com um decode_content... <div><br></div><div>Se a sua url é http  e não https(e mesmo que fosse), não vejo motivo pra vc usar MIME::Base64, fora o lance do password...</div><div><br>
</div><div><br></div><div>A sua requisição deveria ser algo do tipo</div><div><br></div><div><br></div><div>$mech-&gt;credentials($user,$passwd);</div><div>eval{ $mech-&gt;get(&#39;<a href="http://url_do_arquivo.zip">http://url_do_arquivo.zip</a>&#39;)};</div>
<div>if($mech-&gt;success){</div><div>   #BELEZA. TODO O CONTEUDO DO .zip ESTA EM $mech-&gt;content. SO QUE ESSE TROCO EH BINARIO, ENTAO:</div><div>   open my $f,&#39;&gt;&#39;,&#39;/tmp/arquivosalvo.zip&#39; or die $!;  #PREGUICA DE FAZER OUTRO EVAL... MAS NAO USE DIE!!!!</div>
<div>   binmode $f; #SENAO VAI DAR ZEBRA...</div><div>   print $f $mech-&gt;content;</div><div>   close $f; #ACABOU...SO ISSO!</div><div>}</div><div>else{</div><div>     print&quot;\n\nTEM ALGO ERRADO COM A REQUISICAO $@&quot;;</div>
<div>}</div><div><br></div><div><br></div><div><br></div><div><br><br><div class="gmail_quote">2010/8/26 eliane franco <span dir="ltr">&lt;<a href="mailto:elidmfranco@gmail.com">elidmfranco@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<br>olá Roan,<div><br></div><div>Poderia mostrar o erro apresentado e qual lib está dando errado?</div><div><br></div><div>[]&#39;s</div><div>Eliane<br><br></div>
<br>_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br>
(11)82907780<br>
</div>