Nova versão :)<br><br>&lt;code&gt;<br>use strict;<br>use warnings;<br><br>use CGI qw(:standard);<br>use CGI::Carp qw(fatalsToBrowser);<br>use HTTP::Request::Common;<br>use LWP::UserAgent;<br><br>use constant {<br>&nbsp;&nbsp;&nbsp; BASE_URL =&gt; &quot;
<a href="http://www.correios.com.br/encomendas/precos/calculo.cfm">http://www.correios.com.br/encomendas/precos/calculo.cfm</a>&quot;, };<br><br>print header, start_html;<br><br>my $servico&nbsp;&nbsp;&nbsp;&nbsp; = param(&#39;servico&#39;);
<br>my $peso&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = param(&#39;peso&#39;);<br>my $cep_origem&nbsp; = param(&#39;cep_origem&#39;);<br>my $cep_destino = param(&#39;cep_destino&#39;);<br><br>#################<br># Linhas dos corrios<br>#41017 = Encomenda Normal
<br>#40010 = Sedex<br>#40290 = Sedex Hoje<br>#40215 = Sedex 10<br>#40045 = Sedex a Cobrar<br>###############<br><br>my $ua&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = LWP::UserAgent-&gt;new;<br>my $response = $ua-&gt;get(<br>&nbsp;&nbsp;&nbsp; BASE_URL,<br>&nbsp;&nbsp;&nbsp; servico&nbsp;&nbsp;&nbsp; =&gt; $servico,
<br>&nbsp;&nbsp;&nbsp; CepOrigem&nbsp; =&gt; $cep_origem,<br>&nbsp;&nbsp;&nbsp; CepDestino =&gt; $cep_destino,<br>&nbsp;&nbsp;&nbsp; Peso&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =&gt; $peso<br>);<br><br>if ( $response-&gt;is_success ) {<br>&nbsp;&nbsp;&nbsp; if ( $response-&gt;content =~ /Tarifa=(.+?)&amp;erro/ ) {<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; printf &#39;Valor: R$ %.2f&#39;, $1;<br>&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp; else {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print &#39;Valor nao encontrado&#39;;<br>&nbsp;&nbsp;&nbsp; }<br>}<br>else {<br>&nbsp;&nbsp;&nbsp; die $response-&gt;status_line;<br>}<br><br>print end_html;<br><br>&lt;/code&gt;
<br>-- <br>Igor Sutton Lopes &lt;<a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>&gt;