#! 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 "https://www.saxobank.com/Default.aspx/?id=2&Lan=EN&Au=1&Grp=5",
  {
    __VIEWSTATE => 'dDwtMTE1ODc1NzA2NTs7PjAuMSDgHjTB0rV7byCH14/dWkMm',
    txtUID      => 'myID',
    txtPWD      => 'myPass',
    submit      => 'log in'
  });
print $request->is_success ? $request->content : "failed\n";
$request= $ua->request(GET "http://www.saxobank.com/?ID=101");


print $request->is_success ? $request->content : $request->status_line;