perl发送http请求

相关CPAN模块：
LWP::UserAgent
HTTP::Request
HTTP::Response

示例代码：

#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request;

use Data::Dumper;


my $request = HTTP::Request->new('GET', '');

$request->header('HOST', 'baidu.com');
$request->header('Content-Type' => "text/plain;charset=utf-8");

my $ua = LWP::UserAgent->new();
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)');
$ua->timeout(10);

# 返回的$response是一个HTTP::Response object
my $response = $ua->request($request);
#print Dumper $response;

if(! $response->is_success()) {
    print "status:" . $response->status_line() . "\n";
} else {
    print $response->decoded_content;
    #print $response->status_line, "\n";
}