require LWP::UserAgent;
 my $ua = LWP::UserAgent->new(env_proxy => 1,
                              keep_alive => 1,
                              timeout => 30,
                             );
  
my $HTTPrequest = <<EOREQUEST;  
  POST http://www.perl.org/survey.cgi
  Content-Length: 61
  Content-Type: application/x-www-form-urlencoded

  name=Gisle&email=gisle%40aas.no&gender=m&born=1964&trust=3%25
EOREQUEST
my $request = HTTP::Request->new($HTTPrequest);

my $response = $ua->request($request);

if ($response->is_success) {
     print $response->content;
 } else {
     print $response->error_as_HTML;
 }