iname.com

#!/usr/bin/perl use strict; use warnings; use HTTP::Request::Common qw(POST); use LWP::UserAgent; use HTTP::Cookies; my $ua = LWP::UserAgent->new; push @{$ua->requests_redirectable}, 'POST'; $ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave => 1)); my $req = POST 'http://www.mail.com/scripts/common/proxy.main', [ action => 'login', show_frame => 'Enter', mail_language => 'us', login => 'your@mail.com', password => 'password', ]; my $res = $ua->request($req)->as_string; print $res; ##

##

HTTP/1.0 200 OK
Connection: close
Date: Wed, 18 Sep 2002 19:12:46 GMT
Pragma: no-cache
Server: Apache
Content-Type: text/html; charset=iso-8859-15
Client-Date: Wed, 18 Sep 2002 19:10:31 GMT
Client-Response-Num: 1
Set-Cookie: ob_cookies=; domain=mail02.mail.com; path=/
Title: iname.com
X-Cache: MISS from webserver



iname.com





























© 2002 Mail.com. All rights reserved.