title: Perl: LWP::UserAgent returns always code 200 for redirected urls
body: <p>I have a simple url which does a 302 temp. move to another page.</p>
  
  <p>I try to get to if the URL returns code 200 (for OK) to retrieve it and to stop if something else than 200 is returned.</p>
  
  <p>My code:</p>
  
  <pre><code>my $ua = LWP::UserAgent-&gt;new( env_proxy =&gt; 1,keep_alive =&gt; 1, timeout =&gt; 30, agent =&gt; "Mozilla/4.76 [en] (Win98; U)");
  my $response = $ua-&gt;get( $currenturl);
  print $response-&gt;code;
  </code></pre>
  
  <p>The code above ALWAYS returns 200, even if its 302. I tested the header response using FireBug in Firefox. The URL returns "302 Moved Temporarily" in the Net module in FireBug. But the code above in perl returns 200. Why?</p>