<br>

use strict;
my $outfile = "result_test.html";

use LWP;
my $browser = LWP::UserAgent->new;
$browser->cookie_jar( {} );
my $response = $browser->post(
'http://my.screenname.aol.com/_car/login/login.psp',
[
"charset" => "iso-8859-1",
"siteState" => "",
"siteId" => "atlasaol",
"newSN" => "0",
"mcState" => "initialized",
"authLev" => "2",
"submitSwitch" => "1",
"triedAimAuth" => "y",
"screenname" => "kmcp12",
"password" => "notmypassword",
]
);

die "Error: ", $response->status_line, "\n"
unless $response->is_success;

open(OUT, "$outfile") || die "Can't write-open $outfile: $!";
binmode(OUT);
print OUT $response->content;
close(OUT);
print "Bytes saved: ", -s $outfile, " in $outfile\n";