my $req = HTTP::Request->new(POST => $URL);
$req->content_type('application/x-www-form-urlencoded');
$req->content('param=value');

my $res = $ua->request($request, sub {...});