use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");

my $req =
HTTP::Request->new(POST => 'http://www.intrade.com/');

$req->content_type('application/x-www-form-urlencoded');

my $res = $ua->request($req);

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