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

my $ua = LWP::UserAgent->new;
$ua->request(POST 'http://somewhere/foo.cgi', 
    [foo => "bar", bar => "foo"]);