The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

web_get my $url = 'http://www.baidu.com/'; my $content = web_get($url); say "Scalar: " . $content->xml;

    my @urls = qw(http://www.baidu.com http://www.sina.com.cn);
    web_get(@urls, sub {
    #web_get($url, sub {
        my ($content, $code, $res_headers) = @_;   # $res_headers 是 SHashtable 类型
        say "HTTP: " . $code;
        say "Body: " . $content->text;
        $res_headers->each(
            sub {
                my ($header_k, $header_v) = @_;
                say "$header_k: $header_v";
            }
        );
    });

1 POD Error

The following errors were encountered while parsing the POD:

Around line 23:

Non-ASCII character seen before =encoding in '是'. Assuming CP1252