Code:1
use LWP::UserAgent; 

my $input ="pid=12&name=test";


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

my $req = HTTP::Request->new(POST => http://test.com/servlet/sync?');
  $req->content_type('text/html');
  $req->content("$input");

  # Pass request to the user agent and get a response back
  my $res = $ua->request($req);

  # Check the outcome of the response
  if ($res->is_success) {
      print $res->content;
  }
  else {
      print $res->status_line, "\n";
  }
#######################################
Code:2

use SOAP::Lite;

my $soap = SOAP::Lite->new( proxy => 'http://test.com/servlet/sync?');
my $som = $soap->call('sayHello',
    SOAP::Data->name('pid')->value('12'),
    SOAP::Data->name('name')->value('test')
   
 );
 die $som->faultstring if ($som->fault);
 print $som->result, "\n";