Perl Mechanize Webpage

web_mech.pl

use strict;<br>
use WWW::Mechanize;<br>
my $username = "USER"; # Login<br>
my $password = "PASSWORD"; # Password<br>
my $url = "http://www.myurl.com"; # Your URL Name<br>
my $mech = WWW::Mechanize->new();<br>
$mech->get($url);<br>
## Browse the HTML source of the ASP page to get these parameters <br>
$mech->form("form_Name"); # The Login Form Name<br>
$mech->field("txt_id", $username); # Username Texbox name<br>
$mech->field("txt_pwd", $password); # Password Textbox name<br>
$mech->click("cmd_ok"); # Button name<br>

my $current_site = $mech->{uri};
#The $current_site would give you the address of next page...