use LWP::UserAgent;
use Crypt::SSLeay;
my $ua = new LWP::UserAgent;
my $req = HTTP::Request->new('POST', 'https://asite.com:443/adir/create_user.cgi',
	HTTP::Headers->new(
        Content_Type => 'application/x-www-form-urlencoded',
	Content_Length => 21,
	Content => '<User>John.Doe</User>',
	));
  my $res = $ua->request($req);
  print $res->content;