>[оверквотинг удален]
>use SOAP::Transport::HTTP;
>SOAP::Transport::HTTP::CGI
>    -> dispatch_to('daimon')
>    -> handle;
>package daimon;
>sub sms {
> my $class = shift;
> return SOAP::Data->name('text'=>$class);
>}
>должен возращят $class='Jhon' , а он возвращяет $class='daemon'