my sourceWebSite="http://xxxxxxxx";
 my $agent = WWW::Scripter->new();
 my $code;

 $agent->use_plugin(JavaScript =>
                       engine => "JE",
 );

 $agent->get("$sourceWebSite");

 $agent->plugin('JavaScript')->set(
          $agent,'document','forms[0]','login_name','value'=> 'xxxxxx'
    );

    $agent->plugin('JavaScript')->set(
           $agent,'document','forms[0]','login_pwd','value'=> 'xxxxxx'
    );