Просто скопируйте этот код из книги кулинарии Perl, 2-е изд., Стр. 796
, возвращается: 400 URL должен быть абсолютным.
Что не так с этим кодом?
#!"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";