#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use Data::Dumper;
use LWP;

my ($user,$pass) = ("$ARGV[0]","$ARGV[1]");
$user = chomp($user);$pass = chomp($pass);

my $mech = WWW::Mechanize->new();
$mech -> cookie_jar(HTTP::Cookies->new());
$mech -> get('http://*_edit_*/Login.jsp');
$mech -> submit_form(
			form_id   => 'fLogin',
			fields    => 
			{
				txtUserID   => $user, 
				txtPassword => $pass,
			}
);

my $html_raw = $mech -> content();
print "\n$html_raw\n";