Select Code to Download

 function Login() {                       
...
    document.forms[0].submit();
}

 my sourceWebSite="http://xxxxxxxx";
 my $agent = WWW::Scripter->new();
...
           $agent,'document','forms[0]','login_pwd','value'=> 'xxxxxx'
    );

 $agent->eval($code,"JavaScript",$sourceWebSite);