use LWP::UserAgent;
use HTTP::Request::Common;

my $ua = LWP::UserAgent->new();
$ua->agent( "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1)" );

my $request = POST "http://the.url/the.page", {
  foo => 'bar',
  baz => 'bux',
};
my $result = $ua->request( $request );

print $result->as_string;