Redirect links

[Anderson Marcelo]

Please,

I'm need redirect one code via method POST...

 $arquivo_path = '/tmp';
 require LWP::UserAgent;
 require HTML::TokeParser;
 use HTTP::Request::Common;
 
        use HTTP::Cookies;
        $cookie_jar = HTTP::Cookies->new;
        #$pagina = new LWP::UserAgent;
        $pagina = LWP::UserAgent -> new;
 $request = new HTTP::Request('GET', "http://www.bcp.com.br/digimemo/default.asp?R=3");
 $pagina->cookie_jar($cookie_jar); 
 $resposta = $pagina->request($request, "$arquivo_path/bcp.htm");

 $pag = HTML::TokeParser->new(shift||"$arquivo_path/bcp.htm");
 if ($pag->get_tag("form"))
 {
        #$title = $p->get_trimmed_text;
        
        while ($token = $pag->get_token)
        {
           if ($token->[0] eq "S" && $token->[1] eq "input")
           {
              if ($token->[2]{name} eq "calculo")
              { $calculo =  $token->[2]{value}; }
           } 
        }
        
        
 }
 
 
 ############
 # Envio de mensagens para a BCP
 ############
 #$pagina->redirect_ok;
 $resposta = $pagina->request(POST 'http://www.bcp.com.br/digimemo/envia.asp',
     [calculo => $calculo,
      r  => '3',
      ddd  => '85',
      numeroa => '91715137',
      lentxt  => '115',
      texto   => 'Isso e um teste',
      contato => '2654228',
      senderb => 'Centernews'
     ]);

 Here -->  Is the redirect for the $resposta->{_content}  ?!?!?!?!

Any help-me???