Модуль TurboSMS

Может кто подскажет что за фигня творится с этим модулем..
После переезда на другую машинку вот такое:

Цитировать

Не достаточно кредитов для отправок SMS либо произошла ошибка авторизации.
Не достаточно кредитов для отправок SMS либо произошла ошибка авторизации.
Use of uninitialized value in pattern match (m//) at /usr/local/nodeny/TurboSMS.pm line 147.
Не достаточно кредитов для отправок SMS либо произошла ошибка авторизации.
.. ....... ................ at /usr/local/nodeny/sms_info.pl line 249.
Use of uninitialized value in pattern match (m//) at /usr/local/nodeny/TurboSMS.pm line 147.
Не достаточно кредитов для отправок SMS либо произошла ошибка авторизации.
.. ....... ................ at /usr/local/nodeny/sms_info.pl line 249.

perl -v

This is perl 5, version 28, subversion 2 (v5.28.2) built for amd64-freebsd-thread-multi

uname -a
FreeBSD my.eurolan.ua 12.0-RELEASE-p3 FreeBSD 12.0-RELEASE-p3 my_eurolan amd64

Сообщение может отправится а может нет

TurboSMS.pm line 147:

Код:

$class->{_response}=~ /<.+?:GetCreditBalanceResult>([0-9\.]+)<\/.+?:GetCreditBalanceResult>/ && do{

Код:

sub GetCreditBalance{
my($class) = @_;
class->{gw} && do{
my $func = $class->{gw}."_GetCreditBalance";
return $class->$func(undef);
};
class->{_response} = $class->Call('GetCreditBalance');
$class->{_response}=~ /<.+?:GetCreditBalanceResult>([0-9\.]+)<\/.+?:GetCreditBalanceResult>/ && do{
my $Result = $1;
return $Result;
};
return -1;
}

sms_info.pl line 249

Код:

$sms->{CreditBalance}>0 or die("Не достаточно кредитов для отправок SMS либо произошла ошибка авторизации.\n$sms->{AuthResult}");

Собственно лог апача

Код:

[Sun Jun 09 10:17:39.450124 2019] [cgi:error] [pid 84545] [client 2.2.2.2:64175] AH01215: Use of uninitialized value in pattern match (m//) at /usr/local/nodeny/TurboSMS.pm line 142.: /usr/local/www/my/cgi-bin/stat.pl, referer: https://1.1.1.1/cgi-bin/stat.pl