#!/usr/local/bin/perl -w

use HTTP::Request::Common qw( POST );
use LWP::UserAgent;

print "Content-type:text/html\n\n";

my $ua = new LWP::UserAgent;
my $req = POST 

'http://reg.excite.com/mps/login?a=a&pname=pfp&brand=excite&targeturl=http://www.excite.com/&ml_id=link:xcit:1008:i:',
     [ acctname => 'Intaglio', passwd => '******' ];
my $res = $ua->request($req)->content;

if ($res->is_success) {
     print $res->content;
} else {
     print $res->error_as_HTML;
}