title: Error: 302 Moved Temporarily
body: <p>When I execute the code it gives the 302 Moved Temporarily Error 
  If you find any mistake inthis code please let us .</p>
  
  <pre><code>#!C:\Perl64\bin\perl
  print "Content-type: text/html\n\n";
  
  # seraph.pl - search for Codex Seraphinianus on abebooks
  use strict;
  my $out_file = "result_seraph.html";    # where to save it
  
  use LWP;
  my $browser  = LWP::UserAgent-&gt;new;
  my $response = $browser-&gt;post('http://dogbert.abebooks.com/abe/BookSearch',
      # That's the URL that the real form submits to.
      [
          "ph"     =&gt; "2",
          "an"     =&gt; "",
          "tn"     =&gt; "Codex Seraphinianus",
          "pn"     =&gt; "",
          "sn"     =&gt; "",
          "gpnm"   =&gt; "All Book Stores",
          "cty"    =&gt; "All Countries",
          "bi"     =&gt; "Any Binding",
          "prl"    =&gt; "",
          "prh"    =&gt; "",
          "sortby" =&gt; "0",
          "ds"     =&gt; "100",
          "bu"     =&gt; "Start Search",
      ]
  ); 
  
  die "Error: ", $response-&gt;status_line, "\n"
      unless $response-&gt;is_success;
  open( OUT, "&gt;$out_file" ) || die "Can't write-open $out_file: $!";
  binmode(OUT);
  print OUT $response-&gt;content;
  close(OUT);
  print "Bytes saved: ", -s $out_file, " in $out_file\n";
  </code></pre>
  
  <p>what correction I can apply on it Please let me know </p>