#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common;
$ua = new LWP::UserAgent;
$res = $ua->request(POST $url, [%data]);
print $res->content();