Hi,

my requirment is too call a web service using perl into one of my clients webservice which is build in jason(i guess). all the information i got is the url to acess ($URL="http://testgenes.com/servlet/sync?) and i have to Pass some information to its such as($data="pid=12&name=test"); this will update some tables @their background( i have no info on that) and in return it will send some text as out put.
more over the perl script will be executed in command line part of an internal pipeline

I tried to go through soap and LWP for the same but with the limited information in my hand such as above i could'n get it right

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";
[download]

none of the code worked..Please find me the simplest ay to do the same and also a referral which gives info in a simple sentences