#!/usr/bin/perl -w
use strict; 
use LWP;

my $browser = LWP::UserAgent->new( agent => 'Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9) Gecko/2008052906 Firefox/3.0' );
$browser->cookie_jar({});
my $response = $browser->post(
  'http://www.abebooks.com/servlet/SearchEntry',
   # That's the URL that the real form submits to.
  [
    "bi" => "0",
    "bx" => "off",
    "ds" => "30",
    "sortby" => "2",
    "sts" => "t",
    "tn" => "Codex+Seraphinianus",
    "x" => "43",
    "y" => "10",
  ]
);
print $response->content;