cito-to ne tak , smotri:
use DBI;
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
    -> dispatch_to('ClassName')
    -> handle;
package ClassName;
sub sms {
  my $class = shift;
  my $envelope = pop;
  my $text= SOAP::Data->name('text'=>$envelope->{'text'});
my $server = '....';
my $db = 'database';
my $username = '....' ;
my $password = '.....' ;

$query="select name from table where name='$text' ";
$sth=$dbh->prepare($query);
$row_affected= $sth->execute();

if ($row_affected=~m/\d/)
{
       $text= SOAP::Data->name('text'=>$envelope->{'text'})."esti takoi";
}else{
       $text=  SOAP::Data->name('text'=>$envelope->{'text'})."netu takogo";
    }
return $text;
}
exit;

толи не вазврощает $text толи не доходит в $sth, то есть не выдает результата