получяю xml сообщение:
use SOAP::Lite;
my $soap = SOAP::Lite
     -> uri('http://sms.com/daemon')
     -> proxy('http://sms.com/cgi-bin/SMS/2.cgi');
    
$xml = SOAP::Data->name('sms' => \SOAP::Data->value(
       SOAP::Data->name('id' => '3334'),
       SOAP::Data->name('language' => 'en'),
       SOAP::Data->name('text' => 'Jhon')));
                                            
$r=$soap->sms($xml);
$rez = $r -> result;
print "Результат:$rez \n";
exit;

теперь в 2.cgi:
#!/usr/bin/perl -w
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
    -> dispatch_to('daimon')
    -> handle;
package daimon;
sub sms {
$p=@_; # object/class reference
my $param2 = SOAP::Data->name('text'=>$p);
return $param2;
}
должен возращят $param='Jhon' , а он возвращяет $param='2'

• Perl,Kavkaz, 03:39 , 26-Сен-07
  • Perl,help, 09:52 , 26-Сен-07
    • Perl,gibbon, 14:01 , 26-Сен-07
      • Perl,terry, 14:28 , 26-Сен-07

>$p=@_;

дык если не ошибаюсь в $p будет число элементов массива @_

>
>>$p=@_;
>
>дык если не ошибаюсь в $p будет число элементов массива @_

как надо?

>>
>>>$p=@_;

[[[>>
>>дык если не ошибаюсь в $p будет число элементов массива @_
>
>как надо?

надо либо
($p)=@_
либо
$p=shift @_

Результат: daemon