use HTTP::Request::Common qw(POST); 
use LWP::UserAgent; 
$ua = LWP::UserAgent->new; 
 
my $req = POST 'http://www.perl.com/cgi-bin/BugGlimpse', 
                [ search => 'www', errors => 0 ]; 
 
print $ua->request($req)->as_string;

# Load the required modules 
use HTTP::Request::Common qw(POST);  
use LWP::UserAgent;  
 
# Create a user agent object 
$ua = LWP::UserAgent->new;  
  
# Create an HTTP POST request object giving it a URL and a  
# set of parameter name/value pairs 
my $req = POST 'http://www.perl.com/cgi-bin/BugGlimpse',  
                [ search => 'www', errors => 0 ];  
  
# Use the user agent's "request" method to execute the request 
# The value returned is a HTTP response object 
my $resp = $ua->request($req) 
 
# Use one of the HTTP Response method to do something 
# useful with the response. In this case we just print it out 
print $resp->as_string;