Mechanize

This is a multi-part message in MIME format.

--===============0596046459==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C8DB8A.D6E89141"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C8DB8A.D6E89141
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Hello
=20
I would like to be able to login automatically into site 123.45.67.89 by
providing a user name and a password and print the first page after the
login screen.
I am using the script below which always prints the login.asp screen
instead of the firstpage.asp screen.
=20
I am running perl 5.8.7 on a windows 2000 system
=20
Any ideas how to solve the issue will be greatly appreciated.
=20
Thanks
Erich
=20
#!/usr/bin/perl
use WWW::Mechanize;
use HTTP::Cookies;
=20
# What site am I connecting to?
my $url =3D http://
123.45.67.89/login.asp;
=20
# Username
my $username =3D "my_name";
=20
# Password
my $password =3D "my_password";
=20
# Create a new instance of WWW::Mechanize
my $mechanize =3D WWW::Mechanize->new(autocheck =3D> 1);
=20
# Supply the necessary credentials
$mechanize->credentials($url, $username, $password);
=20
# Manage cookies
$mechanize->cookie_jar(HTTP::Cookies->new);
=20
# Retrieve the desired page
$mechanize->get("http://123.45.67.89/firstpage.asp
");
=20
# Assign the page content to $page
my $page =3D $mechanize->content;
=20
# Output the page
print $page;


------_=_NextPart_001_01C8DB8A.D6E89141
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable



charset=3Dus-ascii">