use lib qw(/usr/local/lib/perl5/site_perl/5.6.1/ /usr/local/lib/perl5/site_perl/5.6.1/i686-linux);
use LWP;
use HTTP::Cookies;

my $browser = LWP::UserAgent->new;
my $cookie_locale = "cookies.lwp";
$browser->agent("Jonzilla/666");
$browser->cookie_jar( HTTP::Cookies->new(
					     'file' => $cookie_locale,
					     'autosave' => 1,
					    ));
&sign_in;

sub sign_in
  {
    my $result;
    my $gb_num = 10;


    my $email = "xxxxxxx";
    my $password = "xxxxxxxx";
    my $url = "https://www.amazon.com/exec/obidos/flex-sign-in-done/103-9886259-8125402";
    my $response = $browser->post( $url,
				[
				 'email'     => "$email",
				 'action'    => 'sign-in checked',
				 'next-page' => 'recs/instant-recs-register-secure.html',
				 'password'  => $password,
				],
			      );    
    my $request = new HTTP::Request 'GET' => $url;

    $result = $browser->request($request); 
    if ($result->is_success)
      {
	print $result->as_string;
      }
    else
      {
	print "Error: " . $result->status_line . "\n";
      }
  }