my $url = "http://www.correios.com.br/encomendas/precos/calculo.cfm?resposta=paginaCorreios&servico=40045&MaoPropria=n&avisoRecebimento=N&cepOrigem=$cep_origem&cepDestino=$cep_destino&peso=$peso&valorDeclarado=$valordeclarado";

my $response = $browser->get( $url );          
die "Can´t get $url:" , $response->status_line unless $response->is_success; # o método get() do LWP::Simple
         
my $html = $response->content;

if ( $html =~ /\<b\>R\$\s(.*)\<\/b\>/ ) { # O string é, p.ex., "<b>R$ 12,40</b>".
      
   $frete_virgula = $1;
            
}