#!/usr/local/bin/perl -w

use strict;

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use HTTP::Headers;

my $sessionid;
my $browser = LWP::UserAgent->new;
my $cookie_locale = "cookies.lwp";
my $cookie_jar = HTTP::Cookies->new(
				    File => $cookie_locale,
				    AutoSave => 1,
				   );
my $email = 'xxxxxxx';
my $password = "xxxxxx";
my $url = "http://www.amazon.com/exec/obidos/flex-sign-in-done/";
my $req = $browser->request(POST $url,
			    [ 
			      'email'     => $email,
			      'action'    => 'sign-in checked',
			      'next-page' => 'recs/instant-recs-sign-in-standard.html',
			      'password'  => $password,
			      'method'    => 'get',
				  'opt'       => 'oa',
			      'page'      => 'recs/instant-recs-register-standard.html',
			      'response'  => 'tg/stores/static/-/goldbox/index/',
			      'x'         => '22',
			      'y'         => '13',
			    ]
			   );

$cookie_jar->add_cookie_header($req);
my $res = $browser->request($req);

if ($res->is_success)
  {
    print $res->as_string;
  }
else
  {
    my $cururl = $res->base->as_string;
    print "Error: " . $res->status_line . " $cururl\n";
  }