##

use LWP::Simple;
use WWW::Mechanize;

my $m = WWW::Mechanize->new( autocheck=>1 );
$agent->cookie_jar(HTTP::Cookies->new);

# point to the url of the login form
$m->get("http://www.mydomain.com/servlet/LoginServlet");
my $html = $m->content;
$html =~ s[onSubmit="return validLogin\( this \);"][]g;
$m->update_html($html);

$m->submit_form(
   form_name => "enterLogin",
   fields => {
      loginId=> "XXXXXXX",
     Password=> "YYYYYYY",
        action=> "loginFrame",
        app=> "",
        sessType=> "new"
   }
);
print "success?:";
print $m->success();
print "\n";

my $url1 = "http://www.mydomain.com/private/Servlet?var1=apples&var2=oranges";
$m->get($url1);
print $m->content;