关于curl，问个入门级的问题

antonym55

Windows 中用ppm 装了WWW-curl

use strict;
use warnings;

use WWW::Curl::Easy;

my $url = "http://www.163.com";

my $curl = WWW::Curl::Easy->new() or die "curl init failed!\n";

$curl->setopt(CURLOPT_HEADER,1);
$curl->setopt(CURLOPT_URL, $url);

# A filehandle, reference to a scalar or reference to a typeglob can be used here.
my $response_body;
$curl->setopt(CURLOPT_WRITEDATA,\$response_body);

# Starts the actual request
my $retcode = $curl->perform;

# Looking at the results...
if ($retcode == 0) {
        print("Transfer went ok\n");
        my $response_code = $curl->getinfo(CURLINFO_HTTP_CODE);
        # judge result and next action based on $response_code
        print("Received response: $response_body\n");
} else {
        # Error code, type of error, error message
        print("An error happened: $retcode ".$curl->strerror($retcode)." ".$curl->errbuf."\n");
}

运行后的出错信息

D:\Workspace\Perl>curl2.pl
Bareword "CURLOPT_HEADER" not allowed while "strict subs" in use at D:\Workspace\Perl\curl2.pl line 10.
Bareword "CURLOPT_URL" not allowed while "strict subs" in use at D:\Workspace\Perl\curl2.pl line 11.
Execution of D:\Workspace\Perl\curl2.pl aborted due to compilation errors.

出错的位置在红色文字标识的部分

看了一下 easy.pm中似乎没有 CURLOPT_HEADER，和 CURLOPT_URL

请问下，这个如何修改，谢谢！