Select Code to Download

#! c:\perl\bin -w

use strict;
...
    submit      => 'log in'
  });
print $request->is_success ? $request->content : "failed\n";

<SCRIPT LANGUAGE="javascript">                                     
top.location.replace('http://www.saxobank.com/?ID=101')

$request= $ua->request(GET "http://www.saxobank.com/?ID=101");


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

 LWP::UserAgent::request: Simple response: Internal Server Error
</SCRIPT>

https://www.saxobank.com/Default.aspx/?id=2&Lan=EN&Au=1&Grp=5

POST /Default.aspx/?id=2&Lan=EN&Au=1&Grp=5 HTTP/1.1
...
Etag: "0687196bd1bc41:d99"
Via: 1.1 netcache (NetCache NetApp/5.5R3)
----------------------------------------------------------