<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16441" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY
style="WORD-WRAP: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space"
bgColor=#ffffff>
<DIV>"O módulo LWP::Simple tem uma variável que pode ser exportada chamada $ua.
Este é a instância do LWP::UserAgent utilizado pelo LWP::Simple.<BR
class=khtml-block-placeholder>"Você possa modificá-lo da seguinte maneira:</DIV>
<DIV>"<code></DIV>
<DIV>"use strict;</DIV>
<DIV>"use warnings;<BR class=khtml-block-placeholder>"use LWP::Simple qw($ua
get);</DIV>
<DIV>"$ua->timeout(10);</DIV>
<DIV>"my $content = get("<A href="http://blah.com.br">http://blah.com.br</A>")
|| "Timeout exceeded";</DIV>
<DIV>"print $content;</DIV>
<DIV>"</code></DIV>
<DIV> </DIV>
<DIV>
<DIV><FONT face=Verdana size=2>Desculpe a demora. Obrigado por responder, irei
efetuar alguns testes agora a tarde, acredito que deve resolver.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Irei ler mais a respeito também.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Obrigado novamente.</FONT></DIV>
<DIV><FONT face=Verdana size=2></FONT> </DIV>
<DIV><FONT face=Verdana size=2>Giuseppe Lopes</FONT></DIV></DIV></BODY></HTML>