use LWP::UserAgent;
$ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(POST => 'http://www.google.com/');
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=?');

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