Perl POST請求發送

使用Perl進行POST訪問的經典方法。

use strict;
use LWP;

my $browser = LWP::UserAgent->new();
my $response= $browser->post("http://localhost/test.php?action=search", [ "keyword" => $a]);
my $result = $response->content;
print $result;