このコードをperlクックブック第2版796ページからコピーするだけです。
戻り値:400URLは絶対でなければなりません。
このコードの何が問題になっていますか?
#!"c:\strawberry\perl\bin\perl.exe" -w
use 5.006;
use strict;
use LWP::Simple;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $resp = $ua->post("www.amazon.com/exec/obidos/search-handle-form",
{ "url" => "index-books",
"field-keywords" => "perl"}
);
my $content = $resp->content;
print $content, "\n";