#!/usr/bin/perl
use LWP::UserAgent;
$browser=LWP::UserAgent->new;
$browser->timeout(30);
$TARGET_URL="www.baidu.com";
$response=$browser->post($TARGET_URL);
$htmlcontent=$response->content;
print $htmlcontent."\n";
perl