#! c:\perl\bin -w
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP::Debug qw(+);
use LWP::Protocol::https;
use crypt::SSLeay;
my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => 'cookie_jar', autosave =>1));
# configure LWP::UserAgent to follow redirects after POST
push @{ $ua->requests_redirectable }, 'POST';
my $request=$ua->request(POST "http://www.saxobank.com/",
{
username =>'me',
userpass =>'secret',
submit =>'Submit'
});
print $request->is_success ? $request->content : "failed\n";
####
LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking www.saxobank.com for cookies
HTTP::Cookies::add_cookie_header: Checking .saxobank.com for cookies
HTTP::Cookies::add_cookie_header: Checking saxobank.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: POST http://www.saxobank.com/
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::UserAgent::request: Simple response: Internal Server Error
##
##
LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking www.saxobank.com for cookies
HTTP::Cookies::add_cookie_header: Checking .saxobank.com for cookies
HTTP::Cookies::add_cookie_header: Checking saxobank.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: POST https://www.saxobank.com/Default.aspx?ID=867
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 47 bytes
LWP::Protocol::collect: read 100 bytes
HTTP::Cookies::extract_cookies: Set cookie ASP.NET_SessionId => 3v0qpi550pgfofqpbbv3qc45
LWP::UserAgent::request: Simple response: Found
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking www.saxobank.com for cookies
HTTP::Cookies::add_cookie_header: - checking cookie path=/
HTTP::Cookies::add_cookie_header: - checking cookie ASP.NET_SessionId=3v0qpi550pgfofqpbbv3qc45
HTTP::Cookies::add_cookie_header: it's a match
HTTP::Cookies::add_cookie_header: Checking .saxobank.com for cookies
HTTP::Cookies::add_cookie_header: Checking saxobank.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: POST http://www.saxobank.com?ID=867
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::UserAgent::request: Simple response: Internal Server Error