Select Code to Download

Select or download this

my $request=$ua->request(
  POST "https://www.saxobank.com/Default.aspx/?id=2&Lan=EN&Au=0&Grp=0"
+,
...
    txtPWD      => 'secret',
    submit      => 'log in'
  });

Select or download this

my $viewstate= get_viewstate( $ua ) or die "can't get viewstate field"
+;
                                                                      
+          
...
    return $tag->[1]{value} if $tag->[1]{name} eq '__VIEWSTATE';
  }
}