[Perl] LWP::UserAgent
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);my $url = 'http://xxxxxxx/xxx/';
my %formdata = ('user' => 'hogehoge', 'password' => 'password');
my $request = POST($url, [%formdata]);my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)");
my $res = $ua->request($request);
print $res->as_string;