Select Code to Download

my $mech = WWW::Scripter->new();
$mech->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.2.3)
+ Gecko/201
...
print $mech->content;
$mech->submit_form( with_fields => { userId => 'myId', pass => 'myPass
+' 
} );

--<td class="submitButton" id="SignInButton">
                                    <a href="#" onclick='return submit
+LoginForm("ACTION_PIN_LOGIN","myLogin");'>

function submitLoginForm(val,source) {
        if(val == "ACTION_PIN_LOGIN")
...
        
        return false;
    }