#! c:\perl\bin -w

use strict;
use LWP::UserAgent;
use LWP::Protocol::https;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new;
my $request = POST 'https://www.saxobank.com/',
                  [ UserID   => 'myID',
                    Password  => 'myPasswd',
                  ];

my $page = $ua->request($request);

if ($page->is_success) {
    print $page->content;
} else {
    print $page->status_line;
}