use strict;
   use LWP::UserAgent;
   use LWP::Protocol::https;
   use HTTP::Cookies;

   # Some preset data.
   my $domain      = "https://www.paypal.com/";
   my $login_url   = "cgi-bin/webscr?__track=_login-run:";
   $login_url     .= "p/gen/login:_login-submit";

   my $overview    = "cgi-bin/webscr?cmd=_history";
   $overview      .= "&login_access=1234567890";

   my $ua          = LWP::UserAgent->new(env_proxy  => 1,
                                         keep_alive => 1,
                                         timeout    => 30,
                                        );

   # $ua->agent('Mozilla/5.0');
   # $ua->protocols_allowed( [ 'http', 'https'] );

   # Build a browser object, allow POST redirects.
   my $browser = LWP::UserAgent->new ();
   push @{$browser->requests_redirectable}, 'POST';

   # Attach the browser to an empty cookie jar.
   my $cookie_jar = HTTP::Cookies->new();
   $browser->cookie_jar ($cookie_jar);

   # Attempt to get the homepage, with us logged in.
   my $login_response =
      $browser->post("${domain}${login_url}",[
                      cmd              => '_login-submit',
                      login_cmd        => '',
                      login_params     => '',
                      login_cancel_cmd => '',
                      login_email      => 'foo@bar.org',
                      login_password   => 'ItsASecret',
                                             ]
                    );

   my $response = $browser->get ("${domain}${overview}");

   open(PPAL, ">paypal.html") or die $!;
   print PPAL $response->content;
   close PPAL;

   # print $response->content;