#!/usr/bin/env perl -w

 use strict;

 use LWP::UserAgent;

 my $ua = LWP::UserAgent->new();

 my $rp = $ua->post('http://www.baidu.com', ['username' => 'admin','passwd' => 'password'])

 print $rp->content();

 use LWP::UserAgent;

 my $ua = LWP::UserAgent->new();

 my $rep = $ua->post('http://localhost/1.php', {cmd => 'whoami'});

 #my $rep = $ua->post('http://localhost/1.php', ['cmd' => 'whoami']);

 print $rep->content;

 use LWP::UserAgent;

 my $ua = LWP::UserAgent->new();

 my $req = HTTP::Request->new(POST => 'http://localhost/1.php');

 $req->content('cmd=whoami');

 $req->content_type('application/x-www-form-urlencoded');

 my $rp = $ua->request($req);

 print $rp->content;