use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$ua = new LWP::UserAgent(keep_alive=>1);
$responde = HTTP::Request->new(POST => "https://url.com");
$responde->content_type("application/x-www-form-urlencoded");
$resp = $ua->request($responde);