#set http request and send it
my $request = HTTP::Request->new(POST,$server, $head );
$request->protocol(‘HTTP/1.0‘);
$request->content($content);
my $userAgent = LWP::UserAgent->new();
my $response = $userAgent ->request($request);
由于LWP是perl自带的库，不存在使用第三方库的问题。但如果要支持SSL协议的，还是需要引入IO::Socket::SSL，Net::SSL等第三方库
方法三：利用curl命令来实现
my $httpUrl = $ARGV[0];
my $result = "";
my $content = ‘...‘ ;
if($httpUrl =~ /^https/){
my $certDir = $ARGV[1];
$result = `curl -k --silent --cacert $certDir/***.pem --cert $certDir/***.pem ‘$httpUrl‘ -d ‘$content‘`;
}else{
$result = `curl --silent ‘$httpUrl‘ -d ‘$content‘`;
}
此种方法依赖于curl命令，带对SSL的支持比较好，实现也简单。
