#!/usr/bin/perl
use LWP::UserAgent;
use HTML::LinkExtor;
use HTTP::Cookies;
use URI::URL;

my $ua = new LWP::UserAgent;
push @{ $ua->requests_redirectable }, POST;

my $resp = $ua->post ("http://polls.some.site.com/cgi-bin/view_poll.cgi",
   ['pollID' => '184', 'response1' => 'B', 'response2' => int(rand(3)) + 1]);

# Just print the HTML response
print ($resp->content);